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'  An  interactive  program  for  microcomputers,  TOWCALC,  was  developed/to  implement  the 
results  of  recent  theoretical  work  in  nonlinear  towing  dynamics.  This  work  makes  possible  a 
statistical  description  of  extreme  tensions  in  towlines  based  on  the  seakeeping  motions  of  the 
tug  and  the  tow,  where  the  extreme  tension  is  defined  as  the  sum  of  static  tension  and  peak 
dynamic  tension  which  has  a  probability  of  0.001  of  occurring  in  a  given  day  of  towing.  The 
resulting  data  base  of  extreme  tensions  (for  a  range  of  tugs,  tows,  towing  speeds,  towline 
lengths,  sea  states,  and  wave  angles)  is  incorporated  into  TOWCALC,  which  automates  the 
process  of  estimating  mean  towline  tension  and  extreme  towline  tension.  Mean  towline  ten¬ 
sion  is  estimated  using  methods  given  in  the  U.S.  Navy  Towing  manual  for  resistance  of  the 
tow,  and  an  analytic  method  is  developed  for  the  towline  resistance.  TOWCALC  gives  tow 
planners  the  ability  to  quickly  evaluate  the  feasibility  of  a  given  tow,  as  well  as  to  evaluate 
the  level  of  risk;  tug  operators  at  sea  will  be  able  to  anticipate  dangerous  peak  tensions  and 
take  steps  to  reduce  the  risk  of  towline  failure.  As  a  result,  using  TOWCALC  will  lead  to 
safer  and  more  efficient  ocean  towing. 
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Chapter  1 
Introduction 


As  in  all  maritime  endeavors,  there  is  an  element  of  risk  in  ocean  towing.  Ship  motions 
due  to  heavy  seas  can  induce  dynamic  loads  in  the  towline  sufficient  to  cause  failure  with 
possibly  disastrous  consequences,  endangering  personnel,  hazarding  the  tug  and  tow,  and,  in 
some  cases,  endangering  the  environment. 

Managing  the  risk  of  towline  failure  requires  some  measure  of  the  magnitude  of  these 
dynamic  loads.  Previously,  the  dynamics  of  towing  with  regard  to  the  seakeeping  motions  of 
the  vessels  had  not  been  studied  in  any  detail,  so  there  were  no  quantitative  means  to  predict 
towline  dynamic  tensions.  Towing  system  design  used  a  single  factor  of  safety  applied  to  the 
mean  towline  tension  to  account  for  dynamic  loads;  comparison  with  the  towline’s  nominal 
breaking  strength  was  then  used  to  evaluate  the  risk  of  towline  failure. 

This  simplistic  approach  has  been  replaced  in  Naval  practice  by  the  results  of  recent 
theoretical  work  (Frimm  [1],  Milgram  [2])  which  make  possible  a  statistical  prediction  of 
extreme  tension  based  on  the  nonlinear  towline  dynamics.  These  results  predict  extreme 
towline  tension  (mean  plus  peak  dynamic)  based  on  the  mean  tension.  Using  these  methods 
to  compute  extreme  tensions  directly  is  not  feasible,  however,  for  tow  planners  and  tug  oper¬ 
ators.  Consequently,  a  data  base  of  extreme  tensions  for  various  combinations  of  tug,  tow, 
towline  length,  tow  speed,  wave  angle,  and  sea  state  was  developed.  This  has  been 
incorporated  into  the  latest  revision  of  the  U.S.  Navy  Towing  Manual  [3],  consisting  of  a 
series  of  tables  and  graphs  from  which  a  tow  planner  or  a  tug  operator  may  determine  the 
extreme  tension  which  has  a  probability  of  0.001  of  occurring  in  a  day  of  towing. 


11 


Armed  with  this  knowledge,  planners  and  operators  can  better  evaluate  the  riskb,  and 
thus  make  more  intelligent  decisions  regarding  a  given  towing  situation,  leading  to  safer, 
more  efficient  towing.  The  procedures  for  computing  extreme  towline  tensions,  however,  are 
laborious  and  time  consuming,  and  thus  do  not  lend  themselves  to  exploring  alternatives. 

The  purpose  of  this  thesis  is  to  provide  an  interactive,  microcomputer  based  program 
which  automates  the  process  of  predicting  extreme  towline  tensions,  to  be  used  by  U.S.  Navy 
personnel  involved  in  both  the  planning  and  execution  of  ocean  tows.  This  will  give  tow 
planners  the  ability  to  quickly  evaluate  the  feasibility  of  a  given  tow  ,  as  well  as  to  evaluate 
the  level  of  risk.  Tug  operators  at  sea  will  be  able  to  anticipate  dangerous  peak  tensions  and 
take  steps  to  reduce  the  risk  of  towline  failure. 

Chapter  2  discusses  the  problem  of  towing  dynamics,  outlining  the  theory  of  nonlinear 
extreme  tensions  and  their  prediction.  Chapter  3  discusses  the  methods  used  to  predict  the 
resistance  of  the  tow  and  of  the  towline,  which  together  give  the  mean  towline  tension,  a  pre¬ 
requisite  for  the  prediction  of  extremes.  Chapter  4  describes  in  detail  the  computer  program, 
TOWCALC,  developed  to  implement  the  results  of  the  recent  theoretical  developments. 
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Chapter  2 

Towing  Dynamics 


2.1  Introduction 

My  purpose  here  is  to  outline  the  problem  of  towing  dynamics,  particularly  as  it  relates 
to  the  planning  and  operation  of  ocean  tows.  A  more  thorough  and  complete  treatment  of 
towing  dynamics  is  given  by  Milgram  [2],  which  forms  the  theoretical  basis  for  much  of  this 
work,  and  which  is  summarized  here  in  part. 

The  goal  of  the  analysis  that  follows  is  to  determine  the  magnitude  of  the  dynamic,  or 
time-varying,  loads  experienced  by  the  towline  in  order  to  better  predict  the  possibility  of  its 
breaking.  To  do  so,  we  must  form  a  mathematical  model  of  the  complete  towing  system, 
which  includes  the  tug,  tow,  and  towline,  as  well  as  a  description  of  the  environment.  The 
motions  of  the  tug  and  tow  are  well  described  in  terms  of  linear  seakeeping  theory;  the  tow- 
line  tension,  however,  presents  a  number  of  sources  of  nonlinearity. 

In  this  chapter,  I  will  discuss  the  nonlinear  model  for  towline  tension,  the  twelve- 
degree-of-freedom  towing  system  model,  the  statistics  of  extreme  tensions,  and  the  develop¬ 
ment  of  an  extreme  tension  database. 

2.2  Assumptions 

There  are  a  number  of  assumptions  made  in  this  analysis  regarding  the  composition  of 
the  towing  system.  First,  only  single  tows  are  considered:  multiple  tows,  although  common 
in  practice,  are  beyond  the  scope  of  the  present  analysis.  We  consider  here  only  wire  rope 
towlines,  as  these  are  the  primary  towlines  used  by  Navy  towing  vessels  when  conducting 
ocean  tows. 
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The  composition  of  the  towline  system,  which  connects  the  tug  and  tow,  is  assumed  to 
be  a  single  shot  (90  feet)  of  chain  connected  to  the  towline,  with  20  feet  of  the  chain  on  the 
deck  of  the  tow;  the  remaining  70  feet  extends  past  the  bow.  The  chain  serves  two  purposes: 
it  prevents  the  towline  from  chafing  against  the  deck  edge  of  the  tow,  and  it  reduces  the 
effective  stiffness  of  the  catenary.  In  reality,  most  Navy  tows  are  rigged  with  a  towing  bridle 
that  consists  of  two  shots  of  chain  connected  to  a  "flounder’s  plate",  to  which  an  additional 
length  of  chain  is  attached;  this  final  chain  pendant  is  then  connected  to  the  towline.  Figure 
2.1  shows  the  two  arrangements. 

The  analysis  of  nonlinear  extreme  tensions  presented  here  presumes  a  fixed  towline 
length.  Many  Navy  towing  vessels  have  constant  tension  winches,  however,  which  actively 
control  towline  length  in  response  to  the  load.  Use  of  these  winches  in  automatic  mode  is 
standard  practice,  and  greatly  reduces  peak  dynamic  tensions  in  the  towline.  Consequently, 
the  results  presented  here  apply  directly  to  fixed  length  towlines  and  will  give  conservative 
estimates  of  dynamic  loads  when  the  towing  winch  is  used  in  automatic  mode. 
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SINGLE  LEG  BRIDLE 


DOUBLE  LEG  BRIDLE 


Figure  2.1.  Towing  Bridle  Geometry 
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2.3  Nonlinear  Towline  Model 


23.1  Nonlinear  Equations  of  Motion 

The  towline  is  modeled  as  a  cable,  that  is,  as  a  perfectly  flexible  curved  rod.  The  gov¬ 
erning  differential  equations  for  towline  dynamics  can  be  written  as  (Triantafyllou  [4]) 


m 


( 


dr 


U(T  +  f)  |cM~f 


ds: 


hdq 


§9 

dt 


-T  a 


with 


T  =  Ea\^-j  (Lqds+~ 

l  L  L  Jo  2 L  Jo  l  ds  ) 


(2.1) 


(2.2) 


where 


A  =  cross-sectional  area  of  the  cable 
E  =  Young’s  modulus  of  the  towline 
m  =  towline  mass  per  unit  length 
w  =  towline  weight  per  unit  length 
s  =  Lagrangian  coordinate  along  towline 
q,p  =  normal  and  tangential  motions  along  towline 
T,f  =  static  tension  and  dynamic  tension 
D,L=  cable  diameter  and  length 
p  =  mass  density  of  water 
p0  =  tangential  displacement  distribution  due  to  T 

b  =  ^  p CdD  =  sectional  drag  factor 

CD  =  towline  sectional  drag  coefficient 
a  =  wL/T  =  catenary  static  curvature 
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These  equations  contain  some  considerable  simplifications  when  compared  to  a  com¬ 
plete  dynamical  model  for  cables,  but  for  a  towline  whose  static  configuration  changes 
slowly  in  a  seaway  the  model  is  adequate.  Equations  (2.1)  and  (2.2)  preserve  the  following 
nonlinearities  (Milgram  [2]): 

1)  the  crossflow  drag  force, 

2)  the  product  of  the  dynamic  tension  and  the  dynamic  curvature, 

3)  the  nonlinear  tension-displacement  relation  for  a  towline  undergoing  clipping, 

4)  the  geometric  nonlinear  tension-extension  relationship  for  a  catenary. 

The  crossflow  drag  experienced  by  the  towline  is  due  to  its  transverse  motion.  At  the 
frequencies  of  towline  end  motion  excitation  found  in  towing  situations,  the  drag  force  can 
dominate  inertia  forces.  This  drag  opposes  the  transverse  motions,  considerably  reducing 
their  magnitude,  with  the  net  effect  that  the  towline  must  stretch  to  accommodate  the  end 
motions. 

Clipping  refers  to  the  phenomenon  of  a  cable  that  becomes  completely  slack,  and  then 
taut  again,  as  happens  during  towing.  This  occurs  because  the  cable  cannot  support  compres¬ 
sion. 

The  dominant  nonlinearity  in  towing  dynamics  is  the  relationship  between  tension  and 
cable  extension.  Figure  2.2  shows  this  relationship  for  a  representative  towline.  Over  a  rela¬ 
tively  large  range  of  cable  span,  the  static  tension  is  a  linear  function  of  span.  This  is  because 
the  cable  responds  to  the  motion  of  its  end  points  by  changing  its  geometry — the  effect  of 
the  catenary.  Beyond  a  certain  point,  however,  the  towline  can  no  longer  accommodate  its 
end  motions  in  this  manner,  but  must  stretch,  with  the  highly  nonlinear  effects  exhibited  in 
Figure  2.2. 
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Figure  2.2.  Towline  Tension  vs.  Span 


23.2  Polynomial  Approximation 

The  fundamental  parameters  used  to  describe  the  towline  are  the  elongation  (^)  and  its 
time  derivative  (^),  where  the  elongation  of  the  towline  is  defined  as  the  tangential  motions  at 
both  ends.  Based  on  a  series  of  time  domain  simulations  of  towline  behavior  using  equations 
(2.1)  and  (2.2)  (confirmed  by  experimental  results  [2]),  the  nonlinear  tension  can  be  accu¬ 
rately  represented  as  a  polynomial  approximation  of  the  form 

m  *0 n *0 

{  m+n  <3 
with:  \ 

l(m,/i)*(0,0) 

The  time  simulations  are  performed  for  the  desired  towline  geometries  and  static  ten¬ 
sions,  forcing  the  towline  sinusoidally  at  various  frequencies  and  amplitudes  over  the  range 
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of  frequencies  and  amplitudes  of  interest  in  real  towing  situations.  From  these  N  simulations, 
typically  several  hundred,  S  triplets  of  elongation,  rate  of  change  of  elongation,  and  dynamic 
tension  (C,.  q,.  T)  are  generated.  Next,  the  set  of  N  overspecified  equations  is  formed  as 


i  iaJTZ  =  f. 

m =0n =0 


(23) 


j  m+n<  3 

with:  i  „  „  i  =  1, . N 

and  the  coefficients  amn  are  determined  such  that  the  weighted  mean  square  error  is  mini¬ 
mized.  Weighting  is  used  to  ensure  the  resulting  towline  model  is  most  accurate  for  the 
larger  tensions  which  are  of  greater  concern  for  ship  motions  and  towline  safety.  The 
weighting  used  is 

1  t 
co,(H,/Z))r 

where  5,  is  the  elongation  amplitude,  CO,  is  the  circular  frequency  of  the  excitation,  and  D  is 
the  cable  diameter. 


2.4  Towing  System  Model 

A  tug  and  tow  at  sea  comprise  a  twelve-degree-of-freedom  system,  with  each  ship 
being  driven  in  its  own  six  degrees  of  freedom  by  both  ocean  waves  and  by  the  dynamic  ten¬ 
sion  of  the  connecting  towline.  Figure  2.3  shows  the  geometry  of  such  a  towing  system. 

The  statistics  of  the  motions  of  a  single  ship  in  a  seaway  are  well  modeled  by  linear 
seakeeping  theory  in  terms  of  the  ship  motion  frequency  responses  to  wave  surface  elevation, 
using  a  stochastic  description  of  ocean  waves,  such  as  a  Pierson-Moskowitz  spectrum  (see 
Figure  2.4),  as  input.  Until  recently,  however,  there  has  been  little  analysis  of  the  more  com¬ 
plex  problem  presented  by  one  ship  towing  another  [2]. 
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Figure  2.3.  Towing  Geometry 


Figure  2.4.  Pierson-Moskowitz  Sea  Spectrum 
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The  equations  of  motion  of  the  twelve-degree -of-ffeedom  system  can  be  written  in  the 


frequency  domain  as 


+  ia>,B,(fi>J  +  CJ  X,  =  F,«oJ 


where 


and  where 

<0, 

MpMj 

A,,  A2 
B„B, 
Cp  C2 
F-.,F2 
B„B2 


X,  = 


X, 

X, 


12x1 


M,(coJ  = 


M1+A,((Oe)  0 

0  M2  +  A2(coJJ 

B,(<oe)-Dn  -D12 
-D2j  BjCcoJ-DjJ 


12x12 


12x12 


c,= 


Ci-Kn  -K12 
.  -Kj,  C2-Ku] 


12x12 


FxK)  = 


F,(coJ 
F 2((oe)e‘°_ 


12x1 


encounter  frequency 

generalized  mass  matrices  for  tug  and  tow 
generalized  added  mass  matrices  for  tug  and  tow 
damping  coefficients  for  tug  and  tow 
hydrostatic  restoring  force  matrices  for  tug  and  tow 
wave  exciting  force  vectors  for  tug  and  tow 
motion  response  vectors  for  tug  and  tow 


(2.4) 


9  is  the  phase  of  the  wave  at  the  center  of  gravity  of  the  tow  with  respect  to  the  phase  of  the 
wave  at  the  center  of  gravity  of  the  tug. 
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The  effects  of  the  towline  on  the  ship  motions  are  found  by  using  the  theory  of  equiva¬ 
lent  linearization  [1],  which  assumes  a  linear  relationship  between  the  towline  tension  and  its 
extension  and  time  derivative  of  extension.  Using  this  theory,  the  total  towiine  tension  Tt, 
the  sum  of  static  and  dynamic  tensions,  is  given  by 

Tr  =  T+KMb,A 

The  linearized  unsteady  extension  is 

4=sf-x,+sJ-xa 

where  S,  and  S2  are  given  in  terms  of  the  towing  geometry  (Figure  2.3)  as 


cos  a,  cosy 
cos  a]  sin  y 
sin  a, 

-/,cos  a,  siny 
/,  cos  a,  cosy+ px  sin  a, 
-p,  cos  a,  sin  y 


-cosa2cos(y+\}/0) 

-cosot2sin(y+\)/0) 

sinoq 

/2cosO2sin(y+\)/0) 

-f2  cos  a,  cos(y + \|/0)  -  p2  sin  oc, 
-p2  cos  ot,  sin(y+  \j/0) 


The  unsteady  forces  exerted  on  the  tug  and  the  tow  by  the  towline  can  be  written,  in  the 
frequency  domain,  as 


F//i  =  K11X,  +  Kl2X2  +  D11X1  +  D12X2 
FW2  =  KI2X,  +  Ko2X2  +  D21X,  +  D22X2 


given  in  terms  of  the  restoring  force  matrices  K  and  the  damping  matrices  D.  Expressions 
for  the  K’s  and  D’s  are  given  by  Frimm  [2]. 
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Solving  equation  (2.4)  gives  the  frequency  domain  ship  motion  vector  in  terms  of  the 
wave  exciting  force  vector  as 

X,(<oJ  =  Ho;M,(coe)  +  /coeB,((o,)  +  CJ"'f,(co,) 

where  again  both  X,  and  F5  are  for  the  complete  twelve-degree-of-freedom  system. 

The  wave  excitation  forces  can  be  written  as 

FJ(co,)p)  =  VF(^,p)HWf(co,,fi) 

where  (o,.  is  the  encounter  frequency  of  the  wave,  [3  is  the  propagation  angle  of  the  wave  with 
respect  to  the  course  of  the  tug  (see  Figure  2.5),  VF(coe,  (3)  is  the  wave  amplitude,  and 
HH,f(oo^,  (3)  is  the  transfer  function  from  wave  amplitude  to  tug  and  tow  wave  forces. 


Figure  2.5.  Wave  Angle  Coordinate  System 
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The  frequency  domain  towline  extension  depends  on  the  wave  amplitude  and  direction 
as 

E(cd,;  (3)  =  Sr[-co;M,(coJ  +  /0)A(cdJ  +  CJ_IH^(cof)  P)W(cd„  p) 
where  Sr  is  the  transpose  of  S,  given  by 

ST  =  [S[SD 

The  directional  transfer  function  from  wave  amplitude  to  towline  extension  can  thus  be 
expressed  as 

P)  =  Sr[-©*M,((oJ  -f  id)eBs((oe)  +  Cj"!H„,f(cof)  p) 
and  for  any  directional  encounter  frequency  wave  power  density  spectrum  co„  p),  the 
linearized  towline  extension  power  density  spectrum,  S^coJ,  is  given  by 

2it 

■?«(“.)=/  (2-5) 

0 

We  will  need  the  moments  of  %(coe),  mnt,  n-  0, 2, . . in  the  analysis  of  extreme  tension 
statistics.  These  moments  are  given  by 

03 

mn=  j  (£>ncS^((De)d®e 

o 


2.5  Extreme  Tension  Statistics 

Since  the  sea  waves,  which  are  a  random  process,  are  the  driving  excitations  in  the 
dynamic  motions  of  the  mg  and  tow,  and  thus  in  the  magnitude  of  the  dynamic  towline  ten¬ 
sion,  the  towline  tension  will  also  be  a  random  process.  Thus,  the  best  way  to  predict  towline 
tension  is  to  use  a  statistical  approach. 
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The  most  useful  statistic  is  the  extreme  tension  that  has  a  prescribed  probability  of  not 
occurring  during  a  given  time.  Such  a  statistic  is  called  a  "short  term  extremal  statistic”,  to 
which  we  turn  next. 

2.5.1  Short  Term  Extremal  Statistics 

Suppose  the  dynamic  tension  f(t)  is  linear,  and  thus  a  gaussian  random  process.  We 
define  aTu  as  the  tension  value  that  has  a  probability  a  of  being  exceeded  in  a  period  of  At 
seconds.  For  example,  oooi^scaoo  1S  the  value  of  f  that  has  a  probability  of  0.001  of  being 
exceeded  in  86,400  seconds  (one  day). 

The  theory  of  short  term  extremal  statistics  of  large  extremes  of  gaussian  random  pro¬ 
cesses  gives 

cJa,  = 

where  and  are  the  zeroth  and  second  moments  of  Sn((£>),  the  power  density  spectrum 
of  the  random  process  T(t). 

While  this  result  is  valid  for  finding  the  statistics  of  extremes  for  ship  motions  and  the 
towline  extension,  it  is  not  valid  for  the  extreme  tensions  of  wire  rope  towlines.  This  is 
because  the  highly  nonlinear  relationship  between  towline  extension  and  tension  (Figure  2.2) 
makes  the  dynamic  tension,  T(t),  a  very  non-gaussian  random  process. 

The  maxima  of  the  total  towline  tension  is  formed  by  the  maxima  of  the  dynamic  ten¬ 
sion  T  added  to  the  static  tension  T.  Since  T  is  constant,  to  evaluate  tension  extremes  we 
need  consider  only  f.  A  theory  for  extremes  which  allows  inclusion  of  the  nonlinear 
behavior  of  the  towline  [1]  follows. 
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A  cycle  of  7  is  defined  as  the  behavior  of  7  from  a  time  that  it  is  zero  and  increasing  (a 

positive  zero  upcrossing)  until  the  time  of  the  next  positive  zero  upcrossing.  The  maximum 
value,  or  peak,  reached  by  7  during  one  cycle  is  a  random  variable,  Y.  The  probability  distri¬ 
bution  function  for  Y,  7Y( Y0),  is  the  probability  that  Y  is  less  than  Y0. 

For  a  large  number  of  cycles,  n ,  and  a  value  Y0  much  larger  than  the  average  peak,  the 
largest  peak  during  this  period  is  designated  Y„.  The  probability  that  Y„  is  less  than  Y0, 

Tv  (Y0),  is  approximated  as 

7Yn(Y0)  =  [7Y(Y0)r 

This  approximation  assumes  that  because  Y0  is  large,  occurrences  of  it  being  exceeded  are 
well  separated  in  time  so  they  car  be  considered  statistically  independent. 

The  value  of  Y„  that  has  a  probability  a  of  being  exceeded  is  aY„,  and  so 

[T^YJ^l-a  or  7Y(a Y„)  =  (1  -  a)1"’ 

If  the  function  Ty(Y0)  is  known,  then  aY„  can  be  found  as 

0Y.,=7;'[(l-a)1"’] 

Let  aTn  be  the  random  value  of  the  largest  tension  peak  occurring  in  a  time  interval  At 

whose  probability  of  being  exceeded  is  a.  The  average  number  of  cycles  per  second  of  7  is 
called  N( 0).  Thus,  aTn  is  related  to  aYn  by  n  =  N{0)Al  and  so 

a7Af  =  T;1[(l-a)1*]  (2.6) 

aYn  and  aTn  are  short  term  extremal  statistics  of  the  tension  peaks.  To  find  them  we 

must  determine  7Y( Y0),  the  probability  distribution  function  (pdf)  for  the  value  of  an  arbitrary 
tension  peak. 
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The  frequency  of  upcrossings  by  f  of  any  dynamic  tension  level  Y0  is  called  N( Y0), 
which  is  given  by 


eo 

Ar(Y6)  =  j  Tf(Y0,f)dt 


(2.7) 


where /(T.  T)  is  the  joint  pdf  for  the  tension  and  its  time-derivative.  The  frequency  of  zero 


upcrossings  is 


oo 

N(  0)  =  J  Tf(0,t)dt 


These  frequencies  are  related  to  the  pdf  of  an  arbitrary  tension  peak  through 

tf(Yo) 


Fy(Y0)  =  l- 


N(  0) 


(2.8) 


The  approach  is  to  find  the  level  crossing  frequencies,  /V(Y0),  tnen  use  equation  (2.8)  to 

find  the  pdf  for  the  peak  amplitudes,  Fy(Y0),  and  f  .en  use  equation  (2.6)  to  find  the  desired 
extremal  statistics. 

The  details  of  this  analysis  are  given  by  Frimm  [1],  with  the  result  that  equation  (2.7)  is 
integrated  directly  in  the  (E,,  %)  plane,  after  a  suitable  transformation  of  variables  to 

oo  Sf 

N( Y0)=  f  fr(Y0^,^)tt(r(Y0,5,|))p5(Y0^4)^—  ds 
L  i  lvFu)l 


d% 


where  s  =  (iq»  £0)  are  the  points  along  the  constant  tension  curve  f  =  Y0  in  the  (^,  q)  plane,  s, 

and  sf  are  the  initial  and  final  values  of  s,  «(...)  is  the  unit  step  function,  and  /?$(...)  is  the  joint 
pdf  of  the  cable  extension.  This  last  is  given  by 

1 


P\<&  5. 4)  = 


exp 


q2 + — q2  +  2m,  ^ 
2AV  V 
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where  A  =  m0  mit  - ,  and  m<h,m2.,m.t  axe  the  extension  spectral  moments  determined 
from  equation  (2.5). 

2.5.2  Computational  Method 

Figure  2.6  shows  the  overall  scheme  for  computing  the  extreme  tension  statistics. 

First,  the  towline  governing  equations  are  solved  to  produce  a  set  of  time  simulations  of  cable 
behavior.  From  these,  equation  (2.3)  is  solved  for  the  a^' s  for  each  towline  condition.  With 
these,  the  twelve-degree -of-freedom  motion  equations  are  solved  iteratively,  using  the  equiv¬ 
alent  linear  towline  model  to  predict  ship  motions.  Once  convergence  is  obtained,  the  result¬ 
ing  towline  extension  spectrum  is  used  to  calculate  the  "extreme  tension",  Ta„  which  is 
defined  as 

Text  ~  0.001-^86400  +  T 

and  T  is  the  mean  static  tension. 
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Figure  2.6.  Data  Flow  for  Computational  Scheme 


2.5.3  Data  Base  Development 

Ideally,  this  method  for  predicting  the  nonlinear  extreme  tensions  would  be  used 
directly  by  tow  planners  and  tug  operators.  However,  the  computational  requirements  are 
currently  beyond  the  resources  available  to  these  potential  users.  Consequently,  a  more  prac¬ 
tical  alternative  was  developed  to  bring  the  results  of  this  analysis  to  the  fleet. 

Since  the  extreme  tension  depends  on  tug  and  tow  geometries  and  weight  distributions, 
towline  characteristics  and  length,  mean  tension,  towing  speed,  sea  state,  and  towing  direc¬ 
tion  with  respect  to  the  waves,  a  data  base  of  extreme  tensions  was  developed  for  various 
combinations  of  these  parameters.  Table  2.1  lists  the  particular  values  used  in  generating  the 
data  base. 
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The  resulting  extreme  tensions  were  plotted  against  the  mean  tension  and  compared 
against  a  set  of  100  "standard  curves"  [2].  Based  on  that  comparison,  a  table  was  developed 
showing  the  appropriate  standard  curve  to  use  for  the  given  combination  of  towing  parame¬ 
ters.  The  curve  selected  is  the  one  which  minimizes  the  error  between  it  and  the  tensions 
computed  from  the  non-linear  theory.  A  weighted  least  squares  method  was  used  such  that 
the  curve  selected  minimized  the  error  near  extremes  corresponding  to  70  percent  of  the 
breaking  strength  of  the  tow  wire. 

Although  the  range  of  towed  vessels  in  the  data  base  of  extreme  tensions  cov  ers  most 
of  the  vessels  in  the  Navy,  the  very  largest,  aircraft  carriers,  were  omitted.  Towing  an  air¬ 
craft  carrier  is  a  rare  event,  but  should  the  need  arise,  it  is  important  that  Commanding  Offi¬ 
cers  and  Masters  be  able  to  predict  their  ability  to  safely  tow  the  vessel. 

Consequently,  a  representative  aircraft  carrier,  CVN  65,  with  displacement  of  85,000 
long  tons,  was  chosen  to  be  included  in  the  data  base.  The  tables  of  standard  curve  choices 
that  resulted  are  given  in  Appendix  A.  To  facilitate  use  by  Fleet  personnel,  the  wave  angle  P 
is  replaced  by  a  heading  angle,  where 

heading  angle  =  wave  angle  +  180°. 
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Tugs: 

ARS  38 

ARS  50/ATS  1 

T-ATF  166 

Towline  dia: 

2.00  in 

2.25  in 

2.25  in 

Displacement: 

1900  LT 

3200  LT 

2260  LT 

Wind  Speed  (kts) 

15 

20 

25 

30 

Tow  Speed  (kts) 

3.0 

6.0 

9.0 

Towline  Length  (ft) 

1000 

1200 

1500 

1800 

2100 

Mean  Tension  (lbs) 

10,000 

20,000 

40,000 

80,000 

120,000 

Wave  Angle  (deg) 

0 

60 

120 

180 

Table  2.1.  Data  Base  Towing  Parameters. 


YRBM  Berthing  barge 
FFG 1  Frigate 
DD  963  Destroyer 
AE  26  Ammunition  Ship 


LHA  1  Assault  Carrier 


Displacement 


650  LT 


3200  LT 


6700  LT 


20,000  LT 


40,000  LT 
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Chapter  3 

Resistance  Prediction 


In  order  to  use  the  extreme  tension  results  of  the  previous  chapter,  the  mean  towline 
tension  must  be  measured  or  estimated.  In  this  chapter,  I  discuss  methods  for  predicting  both 
the  resistance  of  the  towed  vessel  and  the  resistance  of  the  towing  hawser. 

3.1  Tow  Resistance 

The  resistance  of  a  vessel  in  a  seaway  at  low  speeds  is  not  well  understood,  particularly 
because  the  added  resistance  due  to  waves  at  low  speeds  is  a  poorly  understood  phenomenon. 
Nevertheless,  the  U.S.  Navy  Towing  Manual  [3]  gives  largely  empirical  procedures  for  esti¬ 
mating  the  resistance  of  vessels  at  towing  speeds.  These  have  produced  reasonably  useful 
results  over  the  years,  and  they  are  adopted  herein  for  lack  of  any  better,  practically  useful 
methods. 

The  total  tow  resistance,  Rj,  is  assumed  to  be  made  up  of  four  components,  and  can  be 
written  as 

Rj  ~  "b  R-s  "b  "b 

where 

Rh  =  calm  water  hull  resistance 

Rw  =  wind  resistance 

Rs  =  added  resistance  due  to  waves 

Rp  =  resistance  due  to  the  tow’s  propellers 
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The  Towing  Manual  distinguishes  between  three  different  types  of  towed  vessels:  self- 
propelled  ships,  floating  drydocks,  and  barges.  Somewhat  different  methods  are  used  to 
compute  the  separate  components  of  resistance  for  each  type  of  vessel,  and  we  will  look  at 
each  in  turn. 

3.1.1  Hull  resistance 

3.1. 1.1  Self-propelled  ships 

The  calm  water  resistance  for  self-propelled  ships  is  given  (in  pounds)  as 


where  RHI A  is  given  as  a  function  of  towing  speed  in  Figure  3.1  (reproduced  from  [3]),  and  A 

is  the  displacement  in  long  tons.  The  appropriate  curve  to  be  used  in  Figure  3.1  is  given  in 
Table  G-2  of  the  Towing  Manual,  which  lists  data  for  141  types  of  Naval  vessels.  A  twenty- 
five  percent  margin  is  included  to  account  for  hull  fouling  and  other  uncertainties. 

3.1.1.2  Drydocks 

For  floating  drydocks,  the  calm  water  resistance  in  pounds  is  given  by 

tfH  =  />xSx(Vy6)2 

where 

/  =  a  coefficient  depending  on  the  degree  of  fouling  of  the  hull 
S  =  wetted  surface  area  of  the  drydock 
VT  =  tow  speed  in  knots 

The  values  of  S  and/,  are  obtained  from  Table  3.1  (reproduced  from  [3]). 


3.1.13  Barges 

The  method  for  barges  is  precisely  the  same  as  for  drydocks,  except  that  the  wetted  sur¬ 
face  area  5  is  given  by 


S  =  (length)  x  (width)  +  (perimeter)  x  (draft) 


Figure  3.1.  Hull  Resistance  Curves  for  Self-Propelled  Ships 
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Drydock  Class 

fl 

S 

f2 

B 

0 

C 

AFDB-l 

Section  256’  x  80’ 

0.45-0.8 

23.000 

0.3 

720 

0.70 

3,800 

AFDB-4 

Section  240’  x  101’ 

0.45-0.8 

26.000 

0.3 

900 

0.70 

4,500 

AFDM-1 

Section  496’  x  116’ 

0.45-0.8 

50,000 

0.6 

750 

0.67 

7,000 

AFDM-3 

Section  488’  x  124’ 

0.45-0.8 

52.000 

0.6 

800 

0.67 

7,800 

ARD-1 

Section  390’  x  60’ 

0.45-0.8 

20,000 

0.2 

250 

0.61 

2,000 

ARD-2 

Section  486’  x71’ 

0.45-0.8 

34.000 

0.2 

370 

0.61 

3,700 

ARD-12 

Section  492’  x  81’ 

0.45-0.8 

40.000 

0.2 

480 

0.61 

4,400 

AFDL-1 

Section  200’  x  64’ 

0.45-0.8 

13,000 

0.4 

220 

0.70 

1,400 

AFDL-7 

Section  288’  x64’ 

0.45-0.8 

19,000 

0.4 

210 

0.70 

1,500 

AFDL-35 

Section  389’  x  84’ 

0.45-0.8 

38,000 

0.3 

780 

0.67 

1,900 

AFDL47 

Section  448’  x97’ 

0.45-0.8 

46,000 

0.5 

420 

0.70 

2,500 

AFDL-48 

Section  400’  x  96’ 

0.45-0.8 

48,000 

0.4 

1,350 

0.70 

2,540 

YFD-7 

Section  488’  x  124’ 

0.45-0.8 

52,000 

0.6 

800 

0.67 

7,800 

YFD-68 
to  71 

Section  474’  x  118’ 

0.45-0.8 

48,000 

0.6 

750 

0.67 

7,300 

Table  3.1.  Dry  dock  Towing  Coefficknts 


35 


3.1.2  Wave  Resistance 
3.1.2.1  Self-propelled  ships 

For  self-propelled  ships,  the  added  resistance  due  to  waves  is  estimated  using  the 
curves  in  Figure  3.2,  reproduced  from  the  Towing  Manual,  based  on  the  hull  form.  The 
entering  argument  in  these  curves  is  the  wave  height  in  feet;  the  user  is  expected  to  use 
observed  wave  height,  or  to  infer  wave  height  based  on  wind  force  (Beaufort  number)  from 
data  such  as  that  in  Table  3.2.  The  latter  approach  does  not  lend  itself  well  to  a  digital  appli¬ 
cation,  since  a  Beaufort  number  does  not  correspond  to  a  unique  wind  speed  or  a  unique 
wave  height. 

A  more  attractive  alternative  for  computer  implementation  is  to  associate  a  unique 
wave  height  with  a  given  wind  speed.  This  can  be  readily  accomplished  using  a  spectral 
description  of  wave  energy,  such  as  the  Pierson-Moskowitz  spectrum  (Figure  2.4). 

The  Pierson-Moskowitz  spectrum  is  an  example  of  a  general  two-parameter  sea  spec¬ 
trum,  which  is  described  by 

S(co)  =  (ag2/cos)exp(-p(g/7wco)4) 

where 

S  (co)  =  frequency  spectrum,  m2  ■  sec 
to  =  wave  frequency,  radians/sec 
a ,  (3  =  nondimensional  parameters 

2 

g  =  gravitaitonal  acceleration  constant,  m/sec 
Vw  =  wind  velocity  at  19.5  m  above  free  surface,  m/sec 

For  the  Pierson-Moskowitz  spectrum,  the  nondimensional  parameters  take  the  values 

a  =  8.1  x  10"3  p  =  0.74 
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140.000  - 

130  000  —  Curve  Numbers 


120  000  - 
110.000  - 
ICC  000  - 


Wave  Height  (feet) 

Figure  3.2.  Added  Resistance  Curves  for  Self-Propelled  Ships 


Beaufort 

No. 

Wind 

Speed 

(kts) 

Description 

H\n 

(feet) 

Ave.  Wave 
Length 
(feet) 

Minimum 

Duration 

(Hours) 

0 

<1 

Calm 

1 

1-3 

Light  air 

<1 

10  in 

18  min 

2 

Light  breeze 

<1 

6.7  ft 

39  min 

3 

7-10 

Gentle  breeze 

<  1 

20-27 

1. 7-2.4 
(hours) 

4 

11-16 

Moderate  breeze 

52-71 

4.8-6.6 

5 

17-21 

Fresh  breeze 

6.1-8.0 

90-111 

8.3-10.0 

6 

22-27 

Strong  breeze 

10-15 

134-188 

12-17 

7 

28-33 

Moderate  gale 

18-26 

212-285 

20-27 

8 

34-40 

Fresh  gale 

30-45 

322-444 

30-42 

9 

41-47 

Strong  gale 

50-64 

492-590 

47-57 

10 

48-55 

Storm 

71-95 

650-810 

63-81 

Table  3.2.  Beaufort  Scale  (From  U.S.  Navy  Towing  Manual) 
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Wave  heights  can  be  determined  from  this  spectrum  in  terms  of  spectral  moments,  with 
the  result  that  (Newman  [5]) 

H  s  average  wave  height  =  yj2nm0 
H  l/3  =  significant  1/3  waveheight  =  4  \fm0 

where 

m0  =  zeroth  moment  =  total  energy  in  spectrum 

oo 

=  J  S((o)Jco 

o 


Computing  m0  for  the  general  two-parameter  spectrum  gives 


1  a 

IpJ 

Selecting  Hm  as  a  more  relevant  measure  of  wave  height  than  the  average  wav  e  height 


when  considering  towing  dynamics,  we  have 

=  kvl 

giving  wave  height  as  a  function  of  wind  speed  alone.  Using  English  units  gives 

Hm  =  0.0186x14 

with  Vw  in  knots  and  H  m  in  feet. 


Given  the  wave  height,  the  added  resistance  is  found  directly  by  entering  Figure  3.2 
usinf?  the  appropriate  curve  indicated  by  Table  G-2  [3]. 
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3.1.2.2  Drydocks  and  Barges 

For  drydocks  and  barges,  an  empirical  rule  is  used  to  compute  the  added  resistance  due 
to  waves: 

/?wave  =  2.85xB  xf2xVzxK 

where 

i?wave  =  resistance,  lbs 

B  -  cross-sectional  area  below  the  waterline,  ft2 

f2  =  coefficient  depending  upon  bow  and  stem  configuration 

V  =  speed  of  tow,  kts 

K  =  1.2,  a  20  percent  allowance  for  rough  water  and  eddies 
Table  3.2  gives  the  values  of  B  and  f2  for  the  Navy’s  floating  drydocks.  For  barges, 

B  =  (beam)  x  (draft),  f2  =  0.2  for  typical  rake-ended  barges  or  blunt  ship-ended  barges,  and 
f2  =  0.5  for  square-ended  barges. 

3.1.3  Wind  Resistance 
3.1.3.1  Self-propelled  ships 

The  wind  resistance  for  self-propelled  ships  is  given  (in  pounds)  as 

=  0.00506  xCwxATxKxV* 

where  Cw  is  t  wind  coefficient,  found  in  Table  G-2  of  the  Towing  Manual,  AT  is  the  frontal 
projected  area  of  the  ship,  also  found  in  Table  G-2,  X  is  a  heading  coefficient,  based  on  the 
relative  wind  direction,  and  VR  is  the  relative  wind  speed  in  knots. 

The  heading  coefficient  K  is  given  by 


1.0 

0  <  y  <  20 

1.2 

20  <  y  <  40 

.0.4 

40  <  y  ^  90 
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where  v  is  the  relative  wind  direction  in  degrees,  with  zero  dead  ahead. 


The  relative  wind  speed  is  found  as 

Vl  =  Vy  +  Vl  +  2VtVw  cos(  1 80  -  y) 

where 

Vr  =  tow  speed,  knots 
Vw  =  wind  speed,  knots 

3.1.3.2  Drydocks  and  Barges 

The  wind  resistance  for  floating  drydocks  is  given  (in  pounds)  as 

Rv  =  0.004  xCx/3x(V  VT)2 

where 

C  =  cross-sectional  area  above  waterline,  sq  ft 

f3  =  coefficient  depending  on  vessel  shape  above  waterline 

and  VT,  Vw  are  as  before.  C  and/3  are  given  by  Table  3.1. 

For  barges,  the  same  expression  is  used  as  for  drydocks,  with 

C  =  (freeboard)  x  (beam)  +  (beight)DEacH0USE  x  (width)DECKH0USE 

and/3  =  0.60  . 

3.1.4  Propeller  Resistance 

The  resistance  of  a  ship’s  propeller  that  is  locked  in  place  is  given  by 

R?  =  3.737  xApxVy 
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where  A?  is  the  projected  area  of  the  propeller,  found  in  Table  G-2  of  the  Towing  Manual, 
and  VT  is  the  tow  speed  in  knots,  as  before.  If  instead  the  propeller  is  allowed  to  trail,  or 
freewheel,  this  resistance  is  reduced  by  half;  if  the  propeller  is  removed,  the  propeller 
resistance  is  zero. 

Floating  drydocks  and  barges  of  the  types  considered  here  do  not  have  propellers,  so 
for  them  the  propeller  resistance  is  zero. 

3.2  Towline  Resistance 

The  Towing  Manual  gives  two  methods  for  estimating  the  resistance  of  a  towing  haw¬ 
ser.  The  first  is  to  take  ten  percent  of  the  total  resistance  of  the  tow;  the  second  involves 
interpolating  a  table  of  data  given  in  the  Towing  Manual.  Neither  method  is  particularly 
useful:  die  first  overstates  the  resistance  in  most  cases,  while  the  second  is  difficult  to  apply. 

An  improved  estimate  can  be  made  by  analyzing  the  hydrodynamics  of  the  hawser. 
Much  of  the  analysis  here  follows  Berteaux  [6].  It  is  assumed  throughout  that  the  hawser  is 
perfectly  flexible,  that  it  does  not  stretch,  and  that  it  is  symmetrical  about  its  midpoint.  The 
geometry  of  a  towing  hawser  is  shown  in  Figure  3.3. 

Although  the  towline  is  moving  through  the  water,  we  consider  the  equivalent  problem 
of  a  static  cable  in  a  constant  horizontal  current. 

The  resistance  of  the  hawser  has  two  components,  one  due  to  normal  pressure  drag,  and 
the  second  due  to  tangential  frictional  resistance  as  shown  in  Figure  3.4.  The  normal  contri¬ 
bution  is  given  by 

D=\pCDNd(V„f 

per  unit  length  of  cable,  and  where 
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D  =  normal  drag  component 
p  =  density  of  water  (slugs/ft3) 

CDS  =  normal  drag  coefficient 
d  =  hawser  diameter  (ft) 

Vs  =  normal  velocity  component 

Since  Vs  =  V  sin  <p ,  the  normal  drag  component  becomes 

D  =^p  CDNd  V1  sin2 d> 

Similarly,  the  tangential  contribution  per  unit  length  is  given  by 

F  =  l-pCDTKd{VTf 
or 

F  =^p  CDTizd  V2cos2<|> 

where 

F  =  tangential  drag  component 
C-dt  =  tangential  drag  coefficient 

and  where  VT=V  cos  <j)  is  the  tangential  velocity  component. 
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Figure  3.3.  Towing  Hawser  Geometry 


Figure  3.4.  Tangential  and  Normal  Forces  on  a  Cable 
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The  drag  coefficients  CD1  and  Cos  both  vary  with  Reynold's  number.  Rs.  For  the 
range  of  Reynold's  numbers  of  interest  in  towing,  these  coefficients  have  the  approximate 
values  (Beneaux  [6]) 

Coy  *1-4 
CD7  =  0.015 

To  find  the  total  hawser  resistance,  we  must  integrate  the  horizontal  components  of  the 
normal  and  tangential  drag  along  the  length  of  the  hawser.  Since  both  D  and  F  are  func¬ 
tions  of  the  angle  ©  .  we  must  first  determine  the  geometry  of  the  hawser. 

Considering  the  static  equilibrium  of  the  hawser  in  the  normal  and  tangential  directions 
yields  the  following  differential  equations 

dT  =  (Psino-F)ds 
Tdo  =  (D  sin2  Q+P  cos  ©)  ds 

where 

T  =  cable  tension 
P  =  weight  of  cable  in  water 
©  =  cable  inclination  angle 
s  =  curvilinear  coordinate  along  the  cable 

If  we  neglect  the  resistance  of  the  hawser  in  determining  its  geometry,  the  equilibrium  equa¬ 
tions  become 

dT  =  P  sin  <j>  ds 

Tdty  =  P  cosq  ds  (3.1) 

Eliminating  P  and  integrating  over  <j>  and  T  leads  to  the  result 

<&  =  tan' 
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where  F0  is  the  horizontal  component  of  the  static  tension.  This  gives  the  inclination  of  the 
hawser  as  a  function  of  its  curvilinear  distance  from  the  midpoint. 

Resolving  D  and  F  (Figure  3.4)  into  horizontal  and  vertical  components  gives 

Dh  =  D  sin  p 
D.  =  D  cos  o 
F,,  =  F  cos  o 
Fy  =  F  sin  o 

so  the  total  horizontal  resistance  of  the  hawser  per  differential  element  is 

dR  =  Dh  t  Fh  -  D  sin  ©  -f  F  cos  © 


or. 


dR  = 


L^pC0.v</^sin!o 


sine 


r  i  2  , 

V  cos  p 


cos© 


=  ^  p  d  V2[Cdn  sin3  d+7t  CDT  cos3  p] 


Integrating  this  along  the  half-length  of  the  hawser  gives 

s 

R  =  j  -pd  V/2[CDVsin3p  +  7tC£>rcos3p]d^  '**' 


which  can  be  transformed  into 


R  =  \?dV !! 


f  rr<  y 
*0 

f{ 

[P) 

•!> 

sin3  d) 


1 Qw  cos2  ^  +  7C  Cpf  COS  (j)j  d  (|) 


(3.1) 


i  (  Ps\ 

where  again  p  =  tan  I  ^  J  and  s  is  one  half  the  total  length  of  the  hawser. 


The  total  hawser  resistance  Rw  is  twice  the  value  given  by  equation  (3.1),  and  thus 
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Rw  =  pdV 


-r» 


<C 


DS 


\r  J 


bin 


—  -s-  cos  ©(sin2  o  -f  2)  -  2]  -fttC^j-sinol 
6  J  J 


(3.2) 


L  cos  0 

Neglecting  the  effects  of  the  hawser  drag  on  its  geometry  is  not  strictly  valid,  but  when 
the  depth  of  the  hawser  catenary’,  H.  is  small  compared  to  the  total  span  from  end  to  end,  L, 
as  is  usually  the  case  in  ocean  towing  (see  Figure  3.4).  the  difference  between  the  actual 
geometry  and  that  of  the  assumed  static  catenary  is  small. 

For  a  hawser  moving  through  the  water  at  a  constant  speed,  as  we  have  assumed 
throughout,  equilibrium  requires  that  the  pull  of  the  tug  balance  the  resistance  of  the  tow  and 
the  drag  of  the  hawser.  We  have  already  estimated  the  resistance  of  the  tow.  and  equation 
(3.2)  gives  an  estimate  for  the  hawser  resistance.  However,  equation  (3.2)  requires  the  mean 
tension.  T0,  as  an  argument,  which  is  itself  a  function  of  the  hawser  resistance.  This  suggests 
an  iterative  scheme  for  finding  the  equilibrium  configuration.  For  a  given  length  of  hawser, 
equation  (3.2)  is  used  to  compute  the  hawser  resistance  at  the  given  speed,  using  the  tow 
resistance  alone  as  a  first  estimate  of  T0.  The  resulting  hawser  drag  is  added  to  the  tow 
resistance  to  give  a  new  estimate  of  the  mean  tension,  which  is  then  used  to  recompute  the 
hawser  resistance.  This  process  is  repeated  until  convergence  is  reached;  that  is,  when 
successive  estimates  of  hawser  resistance  differ  by  less  than  a  predetermined  amount. 

Tables  3.3,  3.4,  and  3.5  give  representative  samples  of  hawser  resistance  found  by  this 
method  for  several  combinations  of  tow  resistance  and  hawser  scope  at  tow  speeds  of  three, 
six,  and  nine  knots. 

We  can  see  from  t’  ese  results  that  at  higher  values  of  ship  resistance,  the  hawser  drag 


is  constant.  This  is  because  the  hawser  catenary  has  reached  the  limit  of  its  ability  to  adjust 
its  geometry,  and  thus  the  drag  is  due  primarily  to  the  tangential  drag  component. 


V  =  3  kts 

Hawser  Scope  (ft) 

Ship  Drag 

1000 

1200 

1400 

1600 

1800 

2000 

2200 

10.000 

299 

415 

563 

744 

957 

1199 

1468 

20.000 

234 

290 

352 

423 

505 

599 

707 

50.000 

226 

271 

317 

364 

411 

460 

509 

100.000 

226 

271 

316 

361 

406 

452 

497 

Table  3.3.  Hawser  Resistance  (lbs)  at  3  knots 


V  =  6  kts 

Hawser  Scope  (ft) 

Ship  Drag 

1000 

1200 

1400 

1600 

1800 

2000 

2200 

10,000 

1137 

1518 

1967 

2477 

3039 

3642 

4279 

20,000 

934 

1150 

1388 

1652 

1946 

2274 

2637 

50,000 

904 

1086 

1269 

1455 

1643 

1835 

2031 

100,000 

903 

1083 

1264 

1445 

1626 

1807 

1989 

Table  3.4.  Hawser  Resistance  (lbs)  at  6  knots 


V  =  9  kts 

Hawser  Scope  (ft) 

Ship  Drag 

1000 

1200 

1400 

1600 

1800 

2000 

2200 

10,000 

2411 

3108 

3882 

4720 

5609 

6538 

7497 

20,000 

2090 

2559 

3062 

3605 

4192 

4823 

5498 

50,000 

2033 

2442 

2855 

3271 

3692 

4119 

4554 

100,000 

2031 

2438 

2844 

3251 

3658 

4066 

4475 

Table  3.5.  Hawser  Resistance  (lbs)  at  9  knots 
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Chapter  4 

Program  Description 


In  this  chapter  I  describe  an  interactive  computer  program,  TOWCALC,  which  imple¬ 
ments  the  theory  and  methods  presented  in  Chapters  2  and  3.  We  begin  with  a  brief  over¬ 
view,  then  proceed  to  a  more  detailed  examination.  Procedures  for  installing  TOWCALC 
are  given  in  Appendix  C;  Appendix  D  gives  a  complete  program  listing. 

4.1  Overview 

4.1.1  Purpose 

The  goal  of  tl is  program  is  to  provide  tow  planners  and  mg  operators  with  a  computa¬ 
tional  tool  to  aid  in  their  decision  making  with  regard  to  ocean  towing.  Since  many  of  the 
intended  users  are  only  casual  computer  users,  it  is  important  the  program  be  as  transparent 
as  possible.  By  this  I  mean  the  user  should  not  be  required  to  be  especially  computer  literate, 
beyond  a  basic  understanding  of  how  to  use  an  applications  program.  This  requires  the  inter¬ 
face  between  the  program  and  the  user  be  as  "friendly"  as  possible,  which  translates  to  a  lib¬ 
eral  use  of  menus  and  prompts,  and  extensive  error  checking  of  input. 

4.1.2  Intended  Users 

The  intended  users  of  this  program  are  primarily  U.S.  Navy  personnel  involved  in  the 
planning  and  execution  of  open  ocean  tows.  This  includes  both  staff  personnel  and  ship¬ 
board  operators.  The  most  likely  staffs  to  use  the  program  would  be  Combat  Support  Squad¬ 
ron  staffs,  Military  Sealift  Command  (MSC)  personnel,  and  the  office  of  the  U.S.  Navy 
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Supervisor  of  Salvage  (SUPSALV).  Afloat  personnel  would  include  the  Commanding 
Officer  and  wardroom  (other  officers)  of  U.S.  Navy  towing  salvage  vessels,  and  the  Masters 
and  mates  of  MSC  ocean  going  tugs. 

4.1.3  Hardware  Requirements 

TOWCALC  was  developed  for  use  on  IBM  and  compatible  micro-computers  running 
under  IBM  PC-DOS™  or  Microsoft  MS-DOS™  versions  3.2  and  higher,  equipped  with  a 
hard  disk  drive,  a  graphics  card,  and  a  graphics  monitor.  Although  it  will  work  with  both 
monochrome  and  color  monitors,  color  is  not  used.  A  printer  is  also  required. 

Supported  graphics  devices  include  the  IBM  Color  Graphics  Array  (CGA),  Enhanced 
Graphics  Array  (EGA),  and  Hercules  monochrome  graphics.  Better  results  are  obtained  on 
the  higher  resolution  EGA  and  Hercules  devices. 

4.1.4  Programming  Environment 

TOWCALC  is  written  in  the  C  programming  language,  using  the  Microsoft  Optimiz¬ 
ing  C  Compiler™  Version  5.0;  graphics  routines  use  the  Halo  ’88™  graphics  kernel.  C  was 
chosen  because  it  lends  itself  to  structured  programming,  and  because  it  provides  complete 
control  over  all  aspects  of  the  computer.  This  is  particularly  important  in  developing  a 
"friendly"  user  interface. 

Several  of  the  C  functions  used  in  TOWCALC  are  from  a  library  written  by  Doerry 
[7];  the  plotting  functions  are  modified  versions  of  those  in  a  library  by  Mil  gram  [8]. 

4.1.5  User  Interface 

The  user  interface  is  designed  to  make  this  program  as  simple  to  use  as  possible. 
Menus  and  prompts  are  used  extensively,  eliminating  the  need  for  the  user  to  learn  a  com¬ 
mand  set.  Some  of  the  important  elements  of  this  interface  are  described  below. 
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The  basic  display  is  a  reverse  video  window  in  the  center  of  the  screen.  Program 
options  are  selected  from  popup  menus;  cursor  keys  are  used  to  move  a  highlighted  bar  from 
choice  to  choice,  or  the  number  of  the  selection  may  be  pressed.  Pressing  the  escape  key 
generally  moves  up  one  level  in  the  overall  menu  structure. 

The  user  enters  data  by  typing  information  on  the  keyboard,  which  is  written  to  the 
screen  in  the  appropriate  location.  Editing  of  data  is  accomplished  by  pressing  the  appropri¬ 
ate  function  key  corresponding  to  the  item,  listed  in  a  menu  usually  shown  at  the  bottom  of 
the  display. 

Error  and  warning  messages  are  displayed  in  a  popup  window  which  appears  in  the 
center  of  the  screen;  the  user  presses  any  key  and  the  message  disappears,  restoring  the  dis¬ 
play  beneath  it.  The  action  taken  by  the  program  in  response  to  an  error  or  a  warning 
depends  on  the  context  of  the  situation. 

When  prompted  to  respond  "yes"  or  "no",  pressing  the  return  or  enter  key  (£)  gener¬ 
ates  a  default  response,  usually  "yes". 

The  interface  functions  (windows,  popup  menus,  screen  display)  achieve  a  nearly 
instantaneous  response  by  writing  direcdy  to  video  RAM  (random  access  memory).  They 
are  based  on  a  set  of  functions  by  Schildt  [9]. 

4.1.6  Options 

After  an  initial  title  screen  (Figure  4.1)  a  popup  menu  appears  (Figure  4.2)  giving  the 
five  main  options  in  this  program: 
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1)  Select  Tug 

2)  Select  Tow 

3)  Estimate  Dynamic  Tension 

4)  Print  Report 

5)  QUIT 

Figure  4.3  shows  this  menu  structure  schematically.  A  brief  description  of  each  option 
follows;  a  more  detailed  discussion  will  be  given  in  later  sections. 

Select  Tug.  The  user  selects  one  of  four  U.S.  Navy  tugs,  sets  the  towline,  or  hawser, 
length,  and  sets  the  size  and  length  of  the  chain  pendant  which  connects  the  hawser  to  the 
tow. 

Select  Tow.  Here  the  user  enters  the  characteristics  of  the  towed  vessel,  the  desired 
tewing  speed,  and  environmental  parameters.  The  resistance  of  the  tow  and  of  the  towline 
are  esiimated,  using  the  methods  of  Chapter  3,  and  the  ability  of  the  chosen  tug  class  to  tow 
the  vessel  at  the  desired  speed  is  evaluated.  Three  different  types  of  vessels  are  considered: 
self-propelled  ships,  floating  drydocks,  and  barges.  Submarines  are  not  included. 

Estimate  Dynamic  Tension.  In  this  option,  the  results  of  Chapter  2  are  implemented 
to  predict  the  extreme  towline  tension.  The  user  may  elect  to  use  the  estimated  mean  tension 
from  the  previous  option,  or  to  enter  the  actual  mean  tension  as  measured  at  sea.  The  user 
may  choose  to  plot  (on  screen)  the  standard  tension  curve,  to  compute  and  plot  the  effects  of 
changing  tow  speed,  or  to  compute  and  plot  the  effects  of  changing  towline  length.  These 
last  two  options  give  the  user  an  immediate  look  at  how  tow  speed  and  towline  length  affect 
extreme  tension. 

Print  Report.  This  option  produces  a  file  containing  the  most  recent  data  and  results. 
If  the  user  so  chooses,  a  printout  is  made  of  this  file. 

QUIT.  This  option  terminates  program  execution  and  returns  control  to  the  operating 
system. 
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Figure  4.3.  Program  Options  Menu  Structure 
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A  session  of  TOWCALC  generally  proceeds  sequentially  from  Select  Tug  through 
Print  Report.  At  startup,  the  only  valid  options  are  Select  Tug,  and  QUIT;  choosing  any 
other  option  will  generate  an  error  message,  requesting  the  user  to  select  a  tug.  Once  a  tug  is 
selected.  Select  Tug,  Select  Tow,  and  QUIT  are  valid  options;  choosing  Estimate  Dynamic 
Tension  or  Print  Report  prompt  the  user  to  select  a  tow.  Print  Report  may  only  be 
selected  once  the  previous  options  have  been  completed. 

The  following  sections  discuss  each  option  in  more  detail. 

4.2  T ug  Selection 

When  this  option  is  chosen,  a  second  menu  is  displayed  (Figure  4.4),  giving  the  user 
three  choices: 

1)  Enter  new  data 

2)  Edit  existing  data 

3)  Retrieve  data  from  file 

At  the  beginning  of  a  session,  only  options  1)  and  3)  are  allowed;  choosing  2)  generates 
an  error  message.  Choosing  option  3)  will  also  produce  an  error  if  no  tug  data  files  have 
been  previously  saved. 

Enter  new  data.  Here,  the  user  selects  one  of  four  Navy  tug  classes,  chooses  the  tow- 
line  length,  and  sets  the  size  and  length  of  the  chain  pendant.  A  popup  menu  is  used  to  select 
the  tug  class  (Figure  4.5),  and  the  remaining  data  is  typed  directly  (Figure  4.6). 

The  four  tug  classes  are  the  ARS  38  class  salvage  ship,  the  ARS  50  class  salvage  ship, 
the  ATS  1  class  salvage  ship,  and  the  T-ATF  166  class  fleet  tug.  Table  3.1  lists  some  of  the 
principal  characteristics  of  each  ship  class. 

Once  a  tug  class  is  chosen,  TOWCALC  automatically  assigns  the  hawser  diameter,  as 
this  is  a  characteristic  of  each  class  (see  Table  4.1). 
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-  TUG  DATA 


Options 


1)  Enter  nerv  data 

2)  Edit  existing  data 

3)  Retrieve  data  file 


Figure  4.4.  Tug  Options 
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I  TUG  DATA 


Class: 

1 

ARE  38 

ARS  £0 

Hawser 

ATS  1 

diameter:  | 
L 

T-ATF  166 

scope : 

ft 

Cham  pendant: 

size: 

m 

scope : 

ft 

Please  enter  data. 

I  . - . . . . . 

V _ 

Figure  4.5.  Selecting  Tug  Class 
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As  data  is  entered,  it  is  checked  for  errors  and  consistency.  Invalid  entries  generate  an 
error  message  prompting  the  user  to  try  ‘again.  Negative  lengths  and  sizes  are  disallowed. 
The  tow  line  length  is  compared  to  the  maximum  length  of  hawser  available  on  the  chosen 
tug — lengths  exceeding  this  value  are  not  allowed.  Upper  bounds  on  chain  pendant  size  and 
length  are  arbitrarily  set  at  20  inches  and  500  feet. 


Characteristics 

ARS  38 

ARS  50 

ATS  1 

T-ATF  166 

Length  (feet) 

213.5 

255.0 

282.7 

225.0 

Beam  (feet) 

43.0 

52.0 

50.0 

42.0 

Draft  (feet) 

16.0 

17.5 

18.0 

15.0 

Displacement  (LT) 

1900 

3282 

3117 

2260 

Cruising  Range 
(run  /  kts) 

9400/12.5 

8000/8.0 

10000/13.0 

10000/13.0 

Maximum  Sustained 
Speed  (kts) 

14.5 

15.0 

16.0 

15.0 

Shaft  Horsepower 

3000 

4200 

6000 

7200 

Table  4.1.  Towing  Vessel  Characteristics 


After  the  data  is  entered,  the  user  has  the  option  to  edit  his  or  her  choices.  The  program 
asks  if  all  data  is  correct:  typing  "yes"  or  pressing  £  confirms  this  is  so  (Figure  4.6).  If  not, 
typing  "no"  prints  a  menu  at  the  bottom  of  the  display  (Figure  4.7),  showing  the  function  key 
that  must  be  pressed  to  change  a  given  item.  The  choices  are: 

@  Tug  class 
@  Hawser  length 
F3j  Chain  pendant  size 
?4)  Chain  pendant  length 

Again,  hawser  size  is  set  automatically.  Pressing  the  "insert"  key  (Ins.)  quits  editing. 
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Once  all  data  is  correct,  the  user  is  given  the  option  to  save  the  data  to  a  file 
(Figure  4.8).  Typing  "yes"  or  pressing  ^  generates  a  prompt  for  a  file  name  (eight  charac¬ 
ters  maximum),  and  the  data  is  then  stored  in  a  file  on  the  computer's  hard  disk  with  the  file 
extension  ".TUG"  (Figure  4.9).  An  error  message  is  displayed  if  invalid  characters  are 
included  in  the  File  name  (characters  not  allowed  by  DOS),  or  if  the  file  could  not  be  opened 
for  some  reason.  The  program  then  returns  to  the  main  menu,  with  Select  Tow  highlighted. 

Edit  existing  data.  Once  a  set  of  tug  data  have  been  entered  during  a  given  session, 
this  option  may  be  used  to  modify  that  data.  The  tug  data  summary  is  immediately  displayed 
v  Figure  4.6),  with  the  prompt  to  confirm  that  data  is  correct.  As  before,  typing  "no"  allows 
editing;  typing  "yes"  or  pressing  displays  the  prompt  to  save  to  file. 

Retrieve  data  from  file.  Choosing  this  option  prompts  the  user  to  enter  a  tug  file 
name  (Figure  4.10).  If  a  mg  data  file  of  this  name  has  been  saved  on  the  hard  disk,  the  pro¬ 
gram  will  retrieve  the  data  stored  there.  If  the  file  does  riot  exist  or  can’t  be  opened  for  some 
other  reason,  or  if  the  file  is  not  a  mg  file,  an  error  message  is  displayed.  Typing  "Q"  at  the 
file  name  prompt  will  return  the  user  to  the  mg  options  menu.  Once  data  is  retrieved,  this 
option  behaves  exacdy  as  the  Edit  Existing  data  option 

In  all  cases,  completion  of  Select  Tug  returns  the  user  to  the  PROGRAM  OPTIONS 
menu,  with  Select  Tow  highlighted. 

Figure  4.1 1  shows  the  organization  of  this  program  module. 
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Figure  4.8.  Save  Tug  File  Prompt 
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Figure  4.11.  Program  Flow:  Select  Tug  Module 
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4.3  Tow  Selection 


This  option  accomplishes  three  separate  functions:  entering  data,  estimating  tow  and 
hawser  resistance,  and  estimating  tug  capability.  In  this  section  we  will  look  at  each  of  the 
three  functions  in  turn,  focusing  on  the  differences  dictated  by  the  type  of  tow  vessel  chosen. 

As  in  the  Select  Tug  option,  when  Select  Tow  is  chosen  a  second  menu  is  displayed, 
giving  the  same  three  choices  as  before  (Figure  4.12): 

1)  Enter  new  data 

2)  Edit  existing  data 

3)  Retrieve  data  from  file 

The  same  comments  regarding  error  messages  apply  here,  except  that  option  3)  generates  an 
error  if  no  tow  files  have  been  saved. 

With  each  of  these  options,  a  menu  is  displayed  to  select  the  type  of  vessel  to  be  towed 
(Figure  4.13): 

1)  Self-propelled  ship 

2)  Floating  drydock 

3)  Barge 

These  choices  correspond  to  the  three  methods  for  estimating  towing  resistance  discussed  in 
Chapter  3. 

43.1  Entering  New  Data 

The  process  of  entering  data  is  similar  for  all  three  types  of  vessel,  but  the  details  differ 
because  the  data  required  to  estimate  resistance  is  different  for  each.  Figure  4.14  shows  this 
process  schematically  for  self-prnpelled  ships. 
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Figure  4.13.  Select  Tow  Ship  Type 
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43.1.1  Self-Propelled  Ships 

Entering  Tow  Data.  When  this  ship  type  is  chosen,  the  user  is  prompted  to  enter  the 
following  data  (Figure  4.15): 

•  Hull  number.  This  is  the  standard  Naval  designation  for  ships.  For  example, 

BB  63  refers  to  a  battleship  with  hull  number  63;  CVN  65  refers  to  a  nuclear- 
powered  aircraft  carrier  with  hull  number  65.  Entry  may  be  made  in  either  upper 
or  lower  case  characters;  TOWCALC  converts  all  to  upper  case. 

•  Full  load  displacement.  This  is  the  ship’s  weight,  expressed  in  long  tons  of  2240 
pounds. 

•  Tow  speed.  The  desired  towing  speed  in  knots. 

•  Wind  speed.  The  maximum  expected  sustained  wind  speed  in  knots. 

•  Relative  wind  direction.  The  direction  from  which  the  wind  is  blowing  with 
respect  to  the  ship’s  heading,  in  degrees.  Wind  blowing  from  dead  ahead  has  a 
relative  direction  of  zero  degrees;  wind  blowing  from  dead  astern,  180  degrees. 

•  Propeller  status.  A  popup  menu  gives  the  choices  "Locked",  "Trailing",  or  "Re¬ 
moved"  (Figure  4.16). 

As  in  Select  Tug,  data  is  checked  for  errors  and  consistency.  Invalid  entries  generate 
an  error  message  prompting  the  user  to  try  again.  Errors  will  be  given  for: 

•  numeral  as  first  character  in  hull  number, 

•  negative  displacement, 

•  negative  tow  or  wind  speed, 

•  displacement  greater  than  100,000  long  tons, 

•  tow  speed  greater  than  12.0  knots, 

•  wind  speed  greater  than  48.0  knots, 

•  relative  wind  direction  greater  than  360  degrees,  or  between  70  and  1 10  degrees. 
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The  limit  on  displacement  is  enforced  because  the  data  base  of  ship  types  has  no  infor¬ 
mation  for  larger  ships.  Similarly,  48.0  knots  wind  speed  is  the  upper  limit  for  the  added 
resistance  curves.  The  extreme  tension  data  base  does  not  cover  beam  seas,  associated  with 
wind  directions  between  70  and  110  degrees  relative,  primarily  because  the  motions  of  the 
tug  under  such  conditions,  particularly  roll,  are  more  restrictive  than  towline  tensions.  Tow¬ 
ing  speed  is  limited  to  12.0  knots  partly  due  to  safety  considerations,  and  partly  due  to  the 
power  limitations  of  Navy  towing  vessels. 

Warning  messages  will  be  given  for  the  following  conditions: 

•  displacement  less  than  350  long  tons,  or  greater  than  91,000  long  tons  but  less  than 
or  equal  to  100,000  long  tons, 

•  tow  speed  greater  than  10.0  knots  but  less  than  or  equal  to  12.0  knots, 

•  relative  wind  direction  less  than  zero  or  between  180  and  360  degrees. 

Displacements  in  the  warning  range  are  not  covered  specifically  by  the  Towing  Manual 

data  base,  but  reasonable  estimates  may  be  made  using  data  for  the  ship  listed  that  is  nearest 
in  size.  Tow  speeds  greater  than  10.0  knots  are  unusual,  but  may  occur  under  special  circum¬ 
stances,  so  TOWCALC  accepts  speeds  in  this  range.  Relative  wind  directions  in  the  range 
given  here  are  converted  to  the  corresponding  angle  between  zero  and  180  degrees. 

Editing.  Once  the  data  is  entered,  TOWCALC  prompts  the  user  to  verify  that  all  is 
correct.  As  before,  if  all  data  is  correct,  typing  "yes"  or  pressing  2  confirms  that  this  is  so. 

If  not,  typing  "no"  prints  a  menu  at  the  bottom  of  the  display,  with  the  choices  (Figure  4.17): 
Iff]  Hull  number 
F2;  Full  load  displacement 
F3)  Tow  speed 

F4  Maximum  expected  wind  speed 
F5  Relative  wind  direction 
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F6  Propeller  status 
To  quit  editing,  press  ins  . 

Selecting  Ship  Class.  In  order  to  make  resistance  predictions  using  the  method  of 
Chapter  3,  TOWCALC  must  make  use  of  the  data  provided  by  Table  G-2  of  the  Towing 
Manual.  This  data  is  stored  in  a  file  on  the  computer,  but  the  user  must  specify  which  ship 
class  to  use.  TOWCALC  displays  a  portion  of  this  data  file  on  the  screen,  and  the  cursor 
keys  (3,  2,  3b,  2,  .PgUp.. ' PgDn ' .  Home;.  End! )  are  used  to  move  the  highlighted  bar 
from  choice  to  choice.  Pressing  2  makes  the  selection.  Initially,  TOWCALC  searches  the 
data  file  for  the  closest  match  to  the  hull  number  the  user  entered,  and  displays  that  ship  type 
at  the  top  of  the  screen  (Figure  4.18).  If  it  cannot  find  an  exact  match,  it  looks  for  a  matching 
hull  type,  such  as  "DDG"  or  "CVN",  and  displays  the  first  ship  of  that  type  at  the  top  of  the 
screen.  If  no  match  is  found,  the  first  ship  type  in  the  list  is  displayed. 

Along  with  the  hull  number  of  the  ship  class,  TOWCALC  displays  a  description,  such 
as  "GUIDED  MISSILE  DESTROYER",  the  displacement  in  long  tons,  the  frontal  projected 
windage  area,  and  the  projected  propeller  area.  These  are  to  help  the  user  make  the  best 
selection  possible. 

After  the  user  selects  a  ship  class,  TOWCALC  displays  the  following  data  and 
prompts  the  user  for  verification: 

•  hull  number  entered  by  the  user, 

•  ship  ciass  selected, 

•  actual  displacement, 

•  tabulated  displacement, 

•  frontal  projected  windage  area, 

•  wind  coefficient, 

•  propeller  area, 
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Figure  4.16.  Propeller  Status  Menu 
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CLASS 

DESCRIPTION 

DISP 

WINDAGE 

AREA 

■\ 

PROP 

AREA 

DDG  51-53 

GUIDED  MISSILE  DESTROYERS 

8,300 

6,900 

254 

BDG  953-956 

GUIDED  MISSILE  DESTROYERS 

8,300 

5,  000a 

254 

DDG  37-46  (ax  DIG  6/9) 

GUIDED  MISSILE  DESTROYERS 

6,150 

3, 000a 

226 

DDG  2-34 

GUIDED  MISSILE  DESTROYERS 

4,500 

2,  256 

176 

DDG  31-34 

GUIDED  MISSILE  DESTROYERS 

4,150 

2, 100 

194 

DD  963-592,597 

DESTROYERS 

7,810 

4,400 

254 

DD  931-951 

DESTROYERS 

4,200 

2,100 

194 

DD  445  CLASS 

DESTROYERS 

7,040 

1,400 

134 

DD  692  CLASS 

DESTROYERS 

3,400 

1,400 

158 

DD  7X0  CLASS 

DESTROYERS 

3,540 

1,  450 

158 

DE  1006  CLASS 

DESTROYER  ESCORT 

1,914 

1,342 

79 

FFG  7-61 

GUIDED  MISSILE  FRIGATES 

3,585 

2,200 

17  Oe 

FFG  1-6  (DEG) 

GUIDED  MISSILE  FRIGATES 

3,426 

1,715 

131 

FF  1052-1097  (DE) 

FRIGATES 

3,900 

2,020 

131 

FF  1040-1051  (DE) 

FRIGATES 

3,400 

1,715 

131 

LCC  19-20 

AMPHIBIOUS  COMMAND  SHIPS 

IS, €50 

7,360 

220a 

LKA  1-5 

AMPHIBIOUS  ASSAULT  SHIPS 

39,300 

11,500 

262 

LPH  2-12 

AMPHIBIOUS  ASSAULT  SHIPS 

18,800 

6,  700 

155 

LPD  4-15 

AMPHIBIOUS  TRANSPORT  DOCKS 

17,000 

8,350 

175 

LPD  1-2 

AMPHIBIOUS  TRANSPORT  DOCKS 

14,665 

8,300 

175 

(Iteais  marked  with  are  bast  estimate.) 

Use  arrow  keys,  fpgup),  (pgdn) ,  (hose),  (and)  to  view  choicaa. 

V _ _ _ 

) 

Figure  4.18.  Selecting  Ship  Class 
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•  curve  number  for  hull  resistance, 

•  curve  number  for  added  resistance  due  to  waves. 

If  data  needs  editing,  an  edit  menu  is  displayed,  as  before,  with  the  choices  (Figure  4.19): 
fT  Actual  displacement 
F2  Frontal  windage  area 
£3  Wind  coefficient 
F?  Propeller  area 

The  resistance  curve  numbers  are  not  subject  to  editing,  as  these  are  unique  to  the  ship 
class  selected.  Pressing  ends  editing. 

Saving  to  File.  The  steps  to  save  tow  data  to  a  file  are  the  same  as  in  Select  Tug, 
except  data  is  stored  in  a  file  with  the  extension  ".TOW". 


SHIP  DATA 


Hull  number:  DDG  51 
Cla3S :  DDG  51-53 
Displacement 
Actual : 

Tabulated: 
Frontal  area: 

Wind  coefficient: 
Propeller  area: 

Hull  resistance  curve: 
Wave  resistance  curve: 


8500  tons 
8300  tons 
6900  sq  ft 
0.70 

254  sq  ft 
4 


FI  Disp  F2  Front  F3  Wind  F4  Prop 


Press  INS  to  continue 
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43.1.2  Floating  Drydocks 

Entering  Tow  Data.  When  this  ship  type  is  chosen,  a  popup  menu  is  displayed  show¬ 
ing  the  fourteen  drydock  types  listed  in  Table  3.1  (Figure  4.20).  When  the  user  makes  a 
choice,  TOWCALC  reads  the  data  for  that  drydock  type  from  a  file.  Then  the  user  is 
prompted  to  enter  a  value  indicating  the  hull  condition  of  the  drydock:  this  is  a  scale  from 
zero  to  ten,  with  zero  representing  a  clean  bottom  and  ten  representing  a  bottom  heavily 
fouled  with  marine  growth  (Figure  4.21).  The  scale  value  is  used  to  compute  the  value  of  the 
coefficient/,  in  Table  3.1.  Next,  TOWCALC  asks  for  the  tow  speed,  wind  speed,  and  rela¬ 
tive  wind  direction  (Figure  4.22). 

Data  is  checked  for  errors  and  consistency,  as  always.  Invalid  entries  generate  error 
messages;  the  same  criteria  for  ship  tow  data  apply  here. 

Estimating  Displacement.  The  Towing  Manual  does  not  provide  the  displacement  of 
drydocks  in  Table  3.1.  This  information  is  needed  later,  though,  when  matching  the  drydock 
against  the  ships  in  the  extreme  tension  data  base.  TOWCALC  estimates  the  displacement, 
A,  as  follows 

A  =  Cb  x  Length  x  Beam  x  Draft 


where 


C„=- 


L  xB  xT 


■  =  block  coefficient 


Drydock  length  and  beam  are  found  in  Table  3.1 ,  but  the  draft  must  be  estimated  using 

B 


Draft  = 


Cr  x  Beam 


where 


C  = - =  Maximum  section  coefficient 

Beam  x  Draft 
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and  B  is  the  underwater  cross-sectional  area,  given  in  Table  3.1.  The  block  coefficient,  Cb, 
and  the  maximum  section  coefficient,  Cx,  are  approximated  as 

Cb  =  0.8 
C,  =  0.9 

Editing.  Once  the  data  is  entered,  TOWCALC  displays  a  summary  and  prompts  the 
user  to  verify  that  all  is  correct.  If  it  is  not,  typing  "no"  prints  a  menu  at  the  bottom  of  the 
display,  with  the  choices  (Figure  4.23): 

FT  Diydock  type 

25  Hull  condition 

,F3j  Tow  speed 

25  Wind  speed 

:F5j  Relative  wind  direction 

Pressing  (Flj  displays  the  popup  menu  of  diydocks  as  before;  selecting  a  different  dry- 
dock  causes  TOWCALC  to  read  a  new  set  of  coefficients  from  file.  Pressing  quits  edit¬ 
ing,  as  always. 

Saving  to  File.  The  steps  here  are  identical  with  those  for  self-propelled  ships. 

Figure  4.24  shows  schematically  the  process  for  entering  drydock  data. 
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Figure  4.20.  Select  Drydock  Class 


Figure  4.21.  Entering  Hull  Condition 
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4.3. 1.3  Barges 

Figure  4.25  shows  schematically  the  process  of  entering  barge  data. 

Entering  Barge  Dimensions.  When  this  ship  type  is  chosen,  the  user  is  prompted  for 
the  following  data  (Figure  4.26): 

•  Barge  name.  This  is  generally  the  Naval  hull  designation,  such  as  "YFN  89"  or 
"YC  1170". 

•  Hull  length.  The  length  of  the  barge  at  the  waterline,  in  feet. 

•  Beam.  The  beam  of  the  barge  at  the  waterline,  in  feet. 

•  Hull  depth.  The  depth  of  the  barge  from  the  keel  to  the  main  deck,  in  feet. 

•  Draft.  The  draft  of  the  barge,  in  feet. 

•  Deckhouse  length.  The  length,  in  feet,  of  the  barge’s  deckhouse,  if  one  is  present, 
or  of  any  deck  cargo,  if  not. 

•  Deckhouse  width.  The  width  of  the  deckhouse  or  deck  cargo,  in  feet. 

•  Deckhouse  height.  The  height  of  the  deckhouse  or  deck  cargo,  in  feet. 

•  End  shape.  A  popup  menu  is  displayed  giving  the  choices  "Rake  ended",  "Ship 
ended",  and  "Square  ended"  to  indicate  the  shape  of  the  bow  and  stem  of  the  barge 
(Figure  4.27). 

As  always,  data  is  checked  for  errors  and  consistency.  Invalid  entries  generate  an  error 
message  prompting  the  user  to  try  again.  Errors  will  be  given  for: 

•  numeral  as  first  character  in  hull  number, 

•  negative  lengths, 

•  hull  length  greater  than  1000  feet, 

•  beam  greater  than  500  feet, 

•  hull  depth  greater  than  100  feet, 

•  draft  deeper  than  hull  depth, 

•  deckhouse  length  greater  than  hull  length, 
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I  BARGE  DATA 


I  Nam©  or  hull  no: 

Hull  dimensions 
Length : 

Beam : 

Depth : 

Draft* 

(  Deckhouse  dimensions 

Length: 

Width : 

Haight : 


ft  ! 
ft 

ft  1 
ft 

ft 

ft  i 

ft  I 


j  End  shape : 


l- 


Figure  4.26.  Entering  Barge  Dimensions 


r  \ 


i  - ---==-rr - 

BARGE 

DATA 

l 

I 

Hama  or  hull  no 

YC 

1711 

l 

Hull  dimensions 

l 

Length: 

150. C 

it  | 

Beam : 

50.0 

ft  i 

Depth: 

12.0 

ft  1 

Draft : 

8.0 

ft  | 

Deckhouse  dimensions 

1 

Length: 

50.0 

ft  | 

Width: 

30.0 

ft  i 

Height: 

10.0 

ft  i 

End  shape: 

RaJce 

ended 

Ship 

ended 

1 

! - - - 

Square  ended 

. 

I 

.  .1 

Figure  4.27.  Barge  End  Shape  Menu 
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•  deckhouse  width  greater  than  beam, 

•  deckhouse  height  greater  than  100  feet. 

The  upper  bound,  on  dimensions  are  somewhat  arbitrary,  as  barges  are  rarely  as  large  as  the 
maximum  dimensions  specified  here.  The  intent  is  to  catch  typing  mistakes  by  the  user. 

Editing  Barge  Dimensions.  Once  the  barge  dimensions  are  entered,  TOWCALC 
prompts  the  user  for  verification;  typing  "no”  at  the  prompt  prints  the  editing  function  key 
choices  along  the  left  side  of  the  display,  corresponding  to  (Figure  4.28): 

D  Barge  name 
©  Hull  length 
@  Beam 
H)  Huh  depth 
@  Draft 

@  Deckhouse  length 
©  Deckhouse  width 
@  Deckhouse  height 
@  End  shape 

Any  changes  made  are  checked  for  errors  and  consistency.  Pressing  ins,  quits  editing. 

Entering  Tow  Data.  After  the  dimensions  have  been  entered  and  confirmed,  TOW¬ 
CALC  prompts  for  the  same  tow  data  requested  for  drydocks:  hull  condition,  tow  speed, 
wind  speed,  and  relative  wind  direction.  The  same  error  checks  are  made  here  as  for  drydock 
tow  data. 

Editing  Tow  Data.  Once  all  data  have  been  entered,  the  usual  prompt  appears  for  edit¬ 
ing.  The  procedure  is  the  same — the  menu  is  printed  at  the  bottom  of  the  display,  with  the 
choices  (Figure  4.29): 
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BARGE  DATA 


FI 

Name  or  hull  no: 

Hull  dimensions 

:  YC 

1711 

F2 

Length : 

150.0 

ft 

F3 

Beam  * 

50.0 

ft 

F4 

Depth : 

12  0 

ft 

FS 

Draft: 

Deckhouse  dimensions 

8.0 

ft 

F6 

Length 

50.0 

ft 

F7 

Width . 

30.0 

ft 

F8 

Height . 

10.0 

ft 

F9 

End  shape: 

Rake 

ended 

L-  . r.-r  Press  INS  to  continue  — 


V 


J 


Figure  4.28.  Editing  Barge  Dimensions 


DATA  SUMM7.RY  | 


I  Nana  or  hull  no:  YC  .711 


Hull  condition: 

5.0 

Tow  speed: 

8.0 

kts 

Max  expected  wind  speed: 

20.  v 

kts 

Relative  wind  direction. : 

0.0 

deg 

FI  Nane  FZ  Hull  F3 

Tow 

F4  Hind  F5  Rel 


r - n-n.  Press  INS  to  continue  — 

V _ ) 


Figure  4.29.  Editing  Barge  Tow  Data 
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£L  Barge  name 
F2  Hull  condition 
F3;  Tow  speed 
R)  Wind  speed 
F5  Relative  wind  direction 

Any  changes  are  checked  for  errors;  pressing  in?  quits  editing. 

Estimating  Displacement.  The  displacement  of  the  barge  is  needed  for  comparison 
with  the  extreme  tension  data  base.  TOWCALC  estimates  the  displacement  of  barges  using 
the  same  relationship  as  for  drydocks,  and  using  the  same  values  of  block  coefficient  and 
maximum  section  coefficient: 

A  =  Cb  x  Length  x  Beam  x  Draft 

Saving  to  File.  The  steps  here  are  identical  with  those  for  self-propelled  ships  and 
floating  drydocks. 

43.2  Editing  Existing  Data 

Once  data  has  been  entered  for  a  particular  tow,  the  user  may  make  changes  by  choos¬ 
ing  the  Select  Tow  option  from  the  main  menu,  then  choosing  Edit  existing  data.  The  pro¬ 
cess  is  shown  schematically  in  Figure  4.30,  and  since  the  steps  are  different  for  each  ship 
type,  they  will  each  be  discussed  in  turn. 

43.2.1  Self-Propelled  Ships 

Here,  TOWCALC  immediately  displays  the  tow  data  entered  previously,  in  the  same 
format.  The  edit  prompt  appears,  and  the  menu  of  choices  is  the  same  as  before 
(Figure  4.17). 
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Next,  TOWCALC  displays  the  ship  data,  and  prompts  for  editing  (Figure  4.19).  Note 
there  is  no  option  to  change  the  ship  class:  to  do  so,  the  user  must  return  to  the  Select  Tow 
option  and  follow  the  original  path  for  entering  new  data  for  a  self-propelled  ship. 

Once  editing  is  complete,  the  user  is  prompted  to  save  the  data  to  a  file,  as  before. 

43.2.2  Floating  Drydocks 

This  option  displays  a  summary  of  all  drydock  data,  and  prompts  for  editing.  The  edit 
menu  is  the  same  as  before,  and  TOWCALC  behaves  the  same  as  when  entering  new  data. 
After  editing,  the  user  is  prompted  to  save  the  current  data  to  file. 

43.23  Barges 

TOWCALC  displays  a  summary  of  barge  dimensions  and  prompts  for  editing 
(figure  4.28).  After  editing  the  dimensions,  the  barge  tow  data  (hull  condition,  tow  speed, 
etc.)  are  displayed  and  another  editing  prompt  is  given  (Figure  4.29).  Finally,  the  user  is 
prompted  to  save  data  to  file. 

4 33  Retrieving  Data  Files 

The  procedures  for  retrieving  tow  data  files  are  similar  to  those  in  Select  Tug;  Figure 
4.31  shows  the  steps  involved  for  all  three  ship  types. 


82 


Figure  4.30.  Program  Flow:  Edit  Existing  Tow  Data 


83 


84 


If  data  for  a  particular  low  have  been  saved  to  file,  that  data  may  be  retrieved  by  choos¬ 
ing  Select  Tow  at  the  PROGRAM  OPTIONS  menu,  then  selecting  Retrieve  data  from 
file.  After  choosing  the  ship  type,  the  user  is  prompted  for  a  file  name.  An  error  message 
appears  if  invalid  characters  are  entered,  or  if  the  file  could  not  be  opened.  Additionally, 
TOWCALC  checks  that  the  file  is  a  valid  tow  file  (with  the  extension  ".TOW"),  and  further 
checks  thar  the  data  matches  the  specified  ship  type.  If  these  conditions  are  not  met,  an  error 
message  is  displayed  and  the  user  is  prompted  to  try  another  file  name.  Typing  "Q"  returns 
the  user  to  the  tow  options  menu. 

Provided  the  tow  file  is  valid,  TOWCALC  reads  the  data  file.  From  this  point,  the 
steps  axe  the  same  as  in  Editing  existing  data  for  each  ship  type. 

43.4  Resistance  Predictions 

When  all  data  for  a  given  tow  have  been  entered  and  edited  to  the  user’s  satisfaction, 
TOWCALC  computes  the  resistance  of  the  tow  and  of  the  towline  at  the  desired  towing 
speed,  using  the  methods  described  in  Chapter  3.  Since  the  results  are  presented  differently 
for  each  ship  type,  we  will  look  at  each  in  turn. 

43.4.1  Self-Propelled  Ships 

For  this  ship  type,  a  separate  summary  is  displayed,  showing  (Figure  4.32): 

•  Wind  resistance, 

»  Wave  height, 

•  Added  resistance  due  to  waves, 

•  Hull  resistance, 

9  Propeller  resistance, 

•  Total  tow  resistance, 

•  Hawser  resistance, 
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RESISTANCE 


Wind 

resistance : 

21996 

lbs 

Wave 

height : 

11.6 

ft 

Wave 

resistance : 

15895 

lbs 

Hull 

resistance : 

10625 

lbs 

Propeller  resistance: 

11865 

lbs 

TotaJ 

L  tow  resistance: 

60381 

lbs 

Hawser  resistance: 

943 

lbs 

Mean 

tension : 

61324 

lbs 

Press  INS  to  continue 


J 


Figure  4.32.  Resistance  Summary  for  Self-Propelled  Ships 


Figure  4.33.  Resistance  Summary  for  Floating  Drydocks 
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•  Mean  towline  tension. 


When  the  user  is  done  viewing  this  screen,  pressing  Ins,  continues  program  execution. 

43.4,2  Floating  Drydocks 

For  drydocks,  the  resistance  predictions  are  listed  along  with  a  summary  of  the  drydock 
data  (Figure  4.33).  The  resistance  is  broken  down  as  follows: 

•  Frictional  resistance, 

•  Wave  forming  resistance, 

•  Wind  resistance, 

•  Hawser  resistance, 

•  Mean  towline  tension. 

Again,  when  the  user  is  done  viewing  this  screen,  pressing  S  continues  program 
execution. 

43.43  Barges 

For  barges,  a  summary  display  similar  to  that  for  drydocks  is  shown  (Figure  4.34).  The 
resistance  predictions  displayed  are  the  same  as  those  for  drydocks. 

43.5  Tug  Evaluation 

So  far,  the  choice  of  mg,  tow,  and  tow  speed  have  been  made  independently.  Clearly, 
this  is  not  possible  in  practice,  since  a  given  mg  has  a  fixed  engine  plant,  with  finite  power. 
Part  of  that  power  provides  thrust  to  drive  the  mg  through  the  water  at  a  given  speed,  and  the 
rest  is  available  for  towing.  If  the  mean  towline  tension  at  a  given  tow  speed  exceeds  the 
available  towing  thrust,  the  mg  will  be  unable  to  make  that  speed.  To  address  this  problem, 
TOWCALC  evaluates  the  ability  of  the  mg  to  pull  the  tow  at  the  given  speed. 
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Figure  4.35  gives  curves  of  available  thrust  versus  towing  speed  for  the  four  classes  of 
Navy  towing  vessels  used  in  TOWCALC  [3].  At  zero  speed,  the  maximum  installed  power 
is  available  as  thrust,  the  so-called  bollard  pull  condition,  while  at  the  ship’s  maximum  free 
running  speed,  the  available  thrust  is  zero. 

After  predicting  the  resistance  of  the  tow,  TOWCALC  evaluates  the  tug/tow/towspeed 
combination  as  follow  s.  First  it  computes  the  available  thrust  (also  called  available  tension) 
by  interpolating  the  appropriate  curve  in  Figure  4.35  at  the  desired  tow  speed.  Next,  the 
"best  possible"  tow  speed  is  found  by  iteratively  computing  the  tow  resistance  and  towline 
resistance  at  each  speed  (starting  at  zero),  computing  the  available  tension  at  that  speed,  and 
comparing  the  two.  If  the  available  tension  is  greater  than  the  mean  towline  tension,  the  tow 
speed  is  increased  by  one  knot.  This  continues  until  the  available  tension  is  less  than  the 
mean  tension — the  "best"  speed  is  the  last  speed  at  which  the  available  tension  exceeded  the 
mean  tension;  this  speed  may  be  greater  than  or  less  than  the  desired  tow  speed.  An  exact 
solution  is  not  computed  because  the  accuracy  of  the  resistance  prediction  methods  does  not 
warrant  such  precision. 


88 


RESISTANCE 


|  Name  or  hull  no:  YC  1711 


Data  corresponding  to 

Table  G- 

4 

fl: 

0.63 

f  2  : 

0.20 

f  3 : 

0.60 

Wetted  surface  area: 

10700 

sq  ft 

Cross  sectional  area 

Below  waterline : 

400 

sq  ft 

Above  waterline: 

600 

sq  ft 

Resistance 

Frictional : 

4644 

Lbs 

Wave  forming: 

132 

lbs 

Wind: 

951 

lbs 

Hawser : 

2552 

lbs 

Total: 

8279 

lbs 

=■  Press  INS  to  continue 


Tow  Sp»«d  (krots) 


Figure  4.35.  Available  Tension  vs.  Tow  Speed 


After  the  best  speed  is  found,  a  summary  is  displayed  (Figure  4.36)  with  a  popup  menu 
giving  the  following  choices: 

1)  Use  best  possible  speed 

2)  Use  original  tow  speed 

3)  Show  graph 

4)  Return  to  PROGRAM  OPTIONS 

Choosing  option  1)  sets  the  tow  speed  to  the  best  speed  found  by  TOWCALC;  choosing  2) 
retains  the  original  tow  speed.  If  the  original  tow  speed  is  greater  than  the  best  possible 
speed,  an  error  message  is  displayed  to  the  effect  that  the  tug  has  inadequate  thrust  at  this 
speed,  prompting  the  user  to  select  the  best  possible  speed  option  (Figure  4.37).  After  the 
user  selects  a  valid  speed  option,  TOWCALC  displays  a  message  confirming  the  choice 
(Figure  4.38). 

Option  3)  displays  the  curves  of  available  tension  vs.  towing  speed  (Figure  4.39)  and 
plots  points  corresponding  to  the  desired  (original)  tow  speed  and  the  best  possible  speed. 
Pressing  any  key  clears  the  screen  and  returns  the  user  to  the  tug  evaluation  menu,  with 
option  4)  highlighted. 

If  options  3)  or  4)  are  selected  before  the  tow  speed  is  set,  an  error  message  is  displayed 
and  the  user  is  returned  to  the  tug  evaluation  menu.  Once  the  tow  speed  is  set,  the  user  may 
choose  either  option  3)  or  4).  Choosing  4)  returns  the  user  to  the  PROGRAM  OPTIONS 
menu,  with  Estimate  Dynamic  Tension  highlighted. 
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Figure  4.36.  Tug  Evaluation  Summary  and  Options  Menu 


Figure  4.37.  Inadequate  Tug  Pull  Error  Message 
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Mwn  a  1  nb  I  o  Tens  i  or» 


TUG  EVALUATION' 


Tug:  ARS  50 
Tow:  DDG  51 

Desired  tow  soeed. 


9.0  Jets 


Best  possible  tow  speed  set 


Press  any  Jcey  to  continue 


Figure  4.38.  Confirmation  of  Speed  Selection 


0  00  4.00  8.00  12.00  16  00 

Ton  Speed  <kts> 

L'esired  Speed  □  Best  Speed 


Figure  4.39.  Screen  Plot  of  Available  Tension  vs.  Tow  Speed 
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4.4  Extreme  Tension 


This  program  option  uses  the  results  of  Chapter  2  to  predict  the  extreme  towline  ten¬ 
sion  for  the  conditions  the  user  has  specified.  Additionally,  this  option  shows  the  user  the 
effects  of  changing  the  two  most  important  variables  under  his  or  her  control:  tow  speed  and 
towline  length. 

4.4.1  Using  the  Data  Base 

As  described  in  Chapter  2,  the  extreme  tension  data  base  is  a  collection  of  "standard 
curve"  choices  for  each  combination  of  tug,  tow,  towing  speed,  wind  speed,  hawser  length, 
and  heading  angle.  Table  2.1  gives  the  range  of  these  parameters:  the  inclusion  of  CVN  65 
data  gives  4320  combinations  in  the  data  base. 

Despite  its  size,  the  data  base  by  no  means  covers  all  possible  cases.  Thus,  a  set  of 
rules  is  needed  to  guide  in  selecting  the  appropriate  combination  Liat  most  closely  matches 
the  conditions  specified  by  the  user.  We  turn  to  these  rules  next. 

Tug  type.  Although  four  tug  classes  are  available  in  TOWCALC,  for  purposes  of 
extreme  tension  calculations  the  ARS  50  and  ATS  1  classes  are  sufficiently  close  in  hydro- 
dynamic  characteristics  to  be  considered  a  single  class. 

Tow  type.  Extreme  tension  is  directly  influenced  by  the  magnitudes  of  the  relative 
motions  of  the  tug  and  tow.  Generally,  smaller  vessels  will  be  affected  more  at  a  given  sea 
state  than  will  larger  vessels,  and  thus  will  have  larger  relative  motions,  with  correspondingly 
higher  extreme  tensions.  Consequently,  TOWCALC  selects  the  tow  from  the  data  base  with 
the  next  smaller  displacement,  unless  the  tow ’s  displacement  is  within  25  percent  of  the  next 
larger  vessel  in  the  data  base.  This  leads  to  a  conservative  estimate  of  extreme  tension,  that 
is,  one  with  a  higher  extreme,  but  which  errs  on  the  side  of  safety. 
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Tow  speed.  Speed  contributes  to  extreme  tension  in  two  ways.  First,  the  encounter 
frequency  of  waves,  for  head  seas,  increases  as  speed  increases,  thus  raising  slightly  the 
added  resistance  due  to  waves.  Second,  and  far  more  significandy,  higher  tow  speeds  lead  to 
higher  mean  towline  tensions.  This  increases  extreme  tensions  by  raising  the  base  to  which 
the  dynamic  tension  is  added,  and  also  by  providing  a  stiffer  towline  system  (due  to  reduced 
catenary  depth). 

However,  since  the  extreme  tension  is  computed  using  mean  tension  as  an  argument, 
the  choice  of  tow  speed  in  selecting  a  standard  curve  is  not  a  particularly  sensitive  parameter. 
Consequendy.  the  following  rules  are  used  to  select  one  of  the  three  tow  speeds: 

0  <  ^'tow  <  4.5  :  (vio*)Da,aBas<  =  3.0  kts 

4.5  <  VT0W  <7.5  :  (V-row)DalaBase  -  6-0  kts 

^tow  -  7.5  :  (V7ow)DalaBase  ~  9-0  kts 

Wind  speed.  TOWCALC  uses  the  following  rules  to  choose  the  appropriate  wind 
speed  in  the  data  base: 


0<VWIN1)<17.5 

17.5  <7^  <22.5 

22.5  <!%*><  27.5 

27.5  <1/^  <48.0 


(^wind)^,^  =  15-°  kts 
(v^T>)DalaBas,  =  20.0  kts 
-  25.0  kts 


(^wtnd) 


WEs’D/' DataBase 


=  30.0 


kts 


As  noted  in  section  4.3. 1.1,  wind  speeds  above  48  knots  generate  wave  heights  outside  the 
range  of  data  in  Figure  3.2. 

Hawser  lengths.  Since  shorter  hawsers  result  in  a  stiffer  towline  system  and  higher 
dynamic  tensions,  TOWCALC  uses  the  next  shorter  length  according  to  the  following  rules: 
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L  <  1000  : 

:  ERROR 

1000  <L  <  1200  : 

L DataBase  ~  1  000 

ft 

1200  <L<  1500  : 

^DataBase  =  1200 

ft 

1500  <L  <  1800  : 

1  ^DataBase  =1500 

ft 

1800  <L  <2100 

:  ^DataBase  =  1800 

ft 

L  >2100 

1  ^ DataBase  =  2100 

ft 

Open  ocean  tows  are  very  rarely  conducted  with  less  than  1000  feet  of  hawser,  as  the 
danger  of  breaking  the  towline  in  anything  but  calm  seas  is  too  high.  Consequently,  it  is  rea¬ 
sonable  to  restrict  hawser  length  in  this  manner. 

Heading  angle.  Extreme  tensions  are  not  particularly  sensitive  to  heading  angle,  F, 
and  so  the  following  rales  are  used: 


0<r<40  : 

^DataBase  ~  0  ^eg 

40<r^70  : 

^DataBase  ~  60 

deg 

70<r<110  : 

ERROR 

110<r<140  : 

^DataBase  =120 

deg 

140<r<180  : 

I" DataBase  =  1  80 

deg 

As  discussed  in  section  4.3. 1.1,  heading  angles  between  70  and  110  degrees  are  not  included 
in  the  data  base  because  the  motions  of  the  tug  (particularly  rolling)  are  more  likely  to  limit 
operations  than  is  extreme  towline  tension. 
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4.4.2  Computing  Extreme  Tension 

Figure  4.40  shows  schematically  the  process  of  estimating  dynamic  tension.  When  the 
user  selects  Estimate  Dynamic  Tension,  a  popup  menu  appears  (Figure  4.41)  with  two 
choices  for  the  basis  of  the  calculations  which  follow: 

1)  Estimated  mean  tension 

2)  Actual  mean  tension 

The  first  option  uses  the  mean  tension  as  estimated  in  Select  Tow.  The  second  option 
allows  the  user  to  enter  the  actual  mean  tension  as  determined  in  a  real  towing  situation.  This 
last  gives  a  far  more  accurate  prediction  of  extreme  tension,  but  is  only  useful  once  the  tow  is 
underway,  and  if  there  is  reasonable  confidence  in  the  tension  measurement.  For  planning 
purposes,  the  estimated  mean  tension  is  the  only  available  data.  If  the  user  elects  to  use  a 
measurement  of  actual  mean  tension,  TOWCALC  prompts  for  its  entry.  Values  above  120 
kips  are  not  allowed,  as  this  is  the  largest  mean  tension  used  in  computing  the  extreme  ten¬ 
sion  data  base. 

Once  the  basis  for  calculations  is  chosen,  TOWCALC  computes  the  extreme  tension. 
This  involves  searching  the  data  base  for  the  appropriate  standard  curve,  and  then  computing 
the  extreme  tension  using  the  equation  for  that  curve,  with  mean  tension  as  the  argument. 

The  form  of  the  equation  is 


r„,  =  ioo 


fJ_  ]  ff 
(i  +fJ)  (i 


where  T  is  the  mean  tension  in  kips  divided  by  100,  andfa,fb>fc,  and  fd  are  coefficients  deter¬ 


mined  by  the  particular  choice  of  standard  curve. 
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OPTIONS 


1)  Show  standard  tension  curve 

2)  Show  effects  of  tow  speed 

3)  Show  effects  of  hawser  length 

4)  Return  to  PROGRAM  OPTIONS 


Figure  4.43.  Dynamic  Tension  Options  Menu 


Figure  4.44.  Screen  Plot  of  Extreme  vs.  Mean  Towline  Tension 
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Next,  TOWCALC  displays  a  summary,  showing  the  following  (Figure  4.42): 

•  tug  class, 

•  row  selected, 

•  closest  tow  from  data  base, 

«  actual  and  tabulated  (from  the  data  base) 

— displacement 
— tow  speed 
— v/ind  speed 
— wind  direction 
— hawser  length 

•  standard  curve  number, 

»  mean  towline  tension, 

•  dynamic  tension  (extreme  minus  mean), 

•  extreme  tension. 

Pressing  2n£  clears  the  screen  and  displays  a  popup  menu  of  options  (Figure  4.43): 

1)  Show  standard  tension  curve 

2)  Show  effects  of  tow  speed 

3)  Show  effects  of  hawser  length 

4)  Return  to  PROGRAM  OPTIONS 

Selecting  the  first  option  plots  a  graph  of  the  standard  curve  (Figure  4.44),  marked  with 
the  particular  values  of  mean  tension  and  extreme  tension.  Pressing  any  key  clears  the  screen 
and  returns  to  the  menu  of  options.  The  last  option  returns  the  user  to  the  PROGRAM 
OPTIONS  menu. 

We  will  look  at  the  remaining  two  options  in  the  next  section. 
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4.4.3  Exploring  Alternatives 

Of  the  many  parameters  which  influence  extreme  tow  line  tension,  the  tug  operator  has 
real  control  over  onl\  two:  tow  speed,  and  tow  line  length.  Wind  and  waves  are  obviously  not 
controllable,  although  the  prudent  mariner  w  ill  avoid  severe  weather  when  possible.  Heading 
angle  is  usualK  dictated  by  the  course  the  tug  must  maintain  to  complete  the  joumes .  Conse¬ 
quently  the  only  means  at  the  tug  operator's  disposal  to  reduce  extreme  tow  line  tension  is  to 
reduce  speed,  or  pay  out  hawser,  or  some  combination  of  both. 

TOWCALC  provides  the  tug  operator,  as  well  as  the  tow  planner,  the  ability  to  see  the 
effects  of  changing  both  tow  speed  and  towline  length.  Large  changes  in  either  must  be 
made  manually,  by  entering  the  Select  Tug  or  Select  Tow  options,  but  the  effects  of  incre¬ 
mental  changes  may  be  seen  by  selecting  Show  effects  of  tow  speed  or  Show  effects  of 
hawser  length.  We  must  note  that  these  options  use  the  estimated  mean  tension  as  the  basis 
for  their  calculations;  selecting  the  actual  mean  tension  as  the  basis  at  the  beginning  of  Esti¬ 
mate  Dynamic  Tension  does  not  change  this. 

4.4.3.1  Effects  of  Tow  Speed 

When  this  option  is  chosen,  TOWCALC  computes  the  mean  towline  tension  and 
extreme  tension  fc  tow  speeds  equal  to  the  original  tow  speed  plus  or  minus  one  knot.  If  the 
original  speed  is  1.0  knots,  the  lower  speed  is  also  set  to  1.0  knot:  if  the  original  speed  is  12.0 
knots,  the  upper  speed  is  also  set  to  12.0  knots. 
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Once  these  calculations  are  complete,  TOWCALC  displays  the  results  (Figure  4.45), 
showing: 

•  tow  speed, 

•  standard  curve  number, 

•  mean  tension, 

•  dynamic  tension, 

•  extreme  tension. 

A  popup  menu  gives  the  choices: 

1)  Show  graph 

2)  Return  to  OPTIONS 

Choosing  Show  graph  shows  the  standard  tension  curves  for  each  speed,  marked  with  the 
corresponding  extreme  tension  (Figure  4.46);  pressing  any  key  clears  the  screen  jnd  returns 
to  the  OPTIONS  menu.  Choosing  Return  to  OPTIONS  skips  the  graph. 

4.4.3.2  Effects  of  Towline  Length 

When  this  option  is  chosen,  TOWCALC  computes  the  mean  towline  tension  and 
extreme  tension  for  towline  lengths  equal  to  the  original  length  plus  or  minus  300  feet.  If  the 
original  length  is  1000  feet,  the  lower  length  is  also  set  to  1000  feet;  if  the  original  length  is 
2100  feet,  the  upper  length  is  also  set  to  2100  feet. 

Once  these  calculations  are  complete,  TOWCALC  displays  the  results,  showing  the 
same  display  as  in  Show  effects  of  tow  speed,  with  towline  length  substituted  for  tow  speed 
(Figure  4.47). 

The  same  popup  menu  appears  as  in  Show  effects  of  tow  speed,  with  the  same  func¬ 
tions.  Figure  4.48  shows  the  extreme  vs.  mean  tension  curves  for  each  length,  marked  with 
the  corresponding  extremes. 
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Figure  4.47.  Effects  of  Hawser  Length  With  Options  Menu 


A  1208  rt  O  1500  ft  □  1800  ft 


Figure  4.48.  Screen  Plot  of  Effects  of  Hawser  Length 
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4.5  Printing  a  Report 


This  option  gives  the  user  the  ability  to  obtain  hard  copy  output  of  the  results  of  a 
TOWCALC  session.  When  this  option  is  chosen,  a  popup  menu  is  displayed  giving  the  fol¬ 
lowing  choices  (Figure  4.49): 

1)  Send  report  to  printer 

2)  Send  report  to  file  only 

3)  Return  to  PROGRAM  OPTIONS 

The  first  option  creates  a  report  by  writing  data  to  a  file  ("REPORT.OUT"),  then  send¬ 
ing  the  file  to  the  printer.  TOWCALC  prompts  the  user  to  ensure  the  printer  is  <r  nnected 
and  online  before  attempting  to  print.  Choosing  the  second  option  causes  TOWCALC  to 
write  the  report  data  to  a  file,  but  does  not  send  it  to  the  printer.  The  third  option  returns  the 
user  to  the  main  program  menu. 

The  report  itself  is  in  five  sections: 

I.  TUG  DATA 

H.  TOW  DATA 

m.  RESISTANCE  PREDICTION 

IV.  TUG  EVALUATION 

V.  DYNAMIC  TENSION 

A  sample  report  is  given  as  Appendix  B.  Each  section  duplicates  the  appropriate  data  sum¬ 
mary  shown  on  the  screen  by  TOWCALC  for  the  corresponding  program  option.  For  exam¬ 
ple,  Section  I  contains  the  information  shown  in  Figure  4.6;  Section  II  duplicates  Figures 
4.17  and  4.19. 


105 


TOW  REPORT 


I 


1)  Sand  report  to  printer 

2)  Send  report  to  file  only 

3)  Return  to  PROGRAM  OPTIONS 


y 


Figure  4.49.  Print  Report  Options  Menu 
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Chapter  5 
Conclusions 

5.1  Summary 

The  theory  of  extreme  seakeeping  loads  in  towlines  makes  possible  a  more  accurate 
evaluation  of  towing  systems  than  previous  practice  allowed,  leading  to  safer,  more  efficient 
ocean  towing.  Reducing  the  uncertainty  of  the  dynamic  loads  to  which  towlines  are  subject 
makes  possible  a  corresponding  reduction  in  the  factors  of  safety  applied  to  towing  system 
design.  When  the  dynamic  tensions  are  small,  this  can  lead  to  higher  towing  speeds,  which 
in  turn  shortens  the  length  of  time  spent  at  sea,  reducing  exposure  to  the  elements  and  further 
diminishing  the  risk  of  towline  failure. 

During  an  actual  tow,  the  ability  to  predict  dangerous  peak  tensions  gives  tug  operators 
the  opportunity  to  take  action  to  reduce  those  peaks.  The  most  effective  means  to  reduce 
extreme  towiine  tensions  are  to  reduce  speed,  increase  the  length  of  the  hawser,  or  both. 

The  computer  program  which  forms  the  bulk  of  the  work  in  this  thesis,  TOWCALC, 
greatly  simplifies  the  task  of  tow  planning  by  automating  the  process  of  predicting  mean  and 
extreme  towline  tensions.  By  doing  this  in  a  user-friendly  manner,  TOWCALC  gives  both 
planners  and  operators  the  freedom  to  explore  different  alternatives  rapidly  and  efficiently. 

In  so  doing,  it  will  also  help  tug  operators  gain  a  better  understanding  of  the  actions  they  can 
take  at  sea  to  reduce  peak  dynamic  tensions. 

I  must  emphasize,  however,  that  TOWCALC  is  not  an  expert  system.  Its  primary  pur¬ 
pose  is  to  serve  as  a  computational  tool  to  aid  in  decision  making,  but  not  to  make  those  deci¬ 
sions  itself.  The  final  evaluation  of  a  given  tow  design  is  left,  properly,  to  the  user. 
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5.2  Further  Study 


Although  a  great  deal  has  been  accomplished  in  the  study  of  towing  dynamics,  there 
remains  much  to  be  done. 

An  important  first  step  is  to  validate  the  theory  of  extreme  tensions  with  full-scale 
experiments.  A  test  plan  for  such  experiments  has  been  developed  (Christensen  [10]),  and  a 
full-scale  trial  has  been  scheduled  by  the  Navy. 

More  research  is  needed  to  develop  a  theory  to  better  predict  the  added  resistance  in 
waves  at  the  low  speeds  used  in  towing.  This  is  the  largest  source  of  uncertainty  in  the  pre¬ 
diction  of  mean  tension,  and  any  improvements  in  accuracy  would  greatly  improve  the  utility 
of  TOWCALC  as  a  planning  tool. 

Expanding  the  current  data  base  of  extreme  tension  results  to  include  more  ship  types, 
longer  towing  hawsers,  and  different  configurations  of  chain  and  hawser  would  improve  the 
overall  accuracy  of  the  predictions.  This  should  be  combined  with  a  thorough  sensitivity 
analysis,  based  on  a  parametric  hull  form,  to  gain  better  insight  into  the  effects  of  hull  geom¬ 
etry  on  extreme  tensions. 

There  are  many  improvements  which  could  be  made  to  the  program  TOWCALC,  and 
Fleet  use  will  inevitably  suggest  number  of  such  improvements.  One  important  area  which 
has  been  left  out  is  the  theory  of  extreme  tensions  for  fiber  rope  towlines  [2];  although  only 
the  newer  classes  of  Navy  towing  vessels  are  able  to  handle  large  circumference  synthetic 
lines,  adding  this  capability  to  TOWC  ALC  would  improve  the  flexibility  of  the  program. 
Despite  this  omission,  I  believe  that  TOWCALC  in  its  present  form  is  a  highly  useful  tool. 
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Appendix  A 

Extreme  Tension  Data  for  CVN  65 


Tables  A.l  through  A.3  give  the  results  of  the  extreme  tension  calculations  for  the 
nuclear-powered  aircraft  carrier  CVN  65  towed  by  ARS  38,  ARS  50/ATS  1,  and  T-ATF  166 
respectively. 
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Appendix  B 

Sample  Tow  Report 


This  appendix  contains  a  sample  tow  report  produced  by  the  Print  Report  option  in 
TOWCALC.  The  data  is  for  ARS  50  towing  DDG  51. 
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I  TOW  REPORT  | 


SECTION  I 
-  TUG  DATA  - 


Class :  ARS  50 


Hawser  data 

diameter:  2.25  ir. 

scope:  1500  ft 


Chain  pendant  data 
size:  2.25 

scope :  90 


in 

ft 


SECTION  II 
-  TOW  DATA  - 


Tow  type:  SKIP 

Input  data 

Hull  number:  DDG  51 
Full  load  displacment: 

Tow  speed: 

Maximum  expected  wind  speed: 
Relative  wind  direction: 
Propeller  status: 

Table  G-2  data 

Ship  class:  DDG  51-53 
Tabulated  displacement: 
Frontal  area: 

Wind  coefficient: 

Propeller  area: 

Hull  resistance  curve : 

Wave  resistance  curve: 


8500  tons 
7.0  kts 
25.0  kts 
0.0  deg 
Trailing 


8300  tons 
6900  sq  ft 
0.70 

254  so  ft 
4 
1 
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- SECT! 

-  RESISTANCE 


O  N  III  — 
PREDICTION 


Tow  type :  SHI? 

Wind  resistance: 

Wave  height:  11.6  ft 

Wave  resistance: 

Hull  resistan-e: 

Propeller  resistance: 

Total  tow  resistance: 

Hawser  resistance: 

Mean  towline  tension: 


21596  lbs 

15895  lbs 
10625  lbs 
11365  lbs 

60331  lbs 

1848  lbs 

62229  lbs  or  62.23  kins 


SECTION  IV 
TUG  EVALUATION  — 


Tug:  AES  50 
Tow:  DDG  51 

Desired  tow  speed:  5.0  kts 

Mean  tension  at  this  speed:  61324  lbs 

Available  tension  at  this  speed:  114700  lbs 

***  Tug  has  sufficient  pull  at  this  speed  *** 

Best  possible  tow  speed:  7.0  kts 

Mean  tension  at  this  speed:  86209  lbs 

Available  tension  at  this  speed:  98000  lbs 

Option  selected: 

Tow  speed  =  7.0  kts  (BEST  POSSIBLE) 
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SECTION  V 
DYNAMIC  TENSION 


Tug:  AES  50 
Tow:  DDG  51 

Tabulated  data 
Tow:  DD  963 
Displacement : 

Tow  speed : 

Hind  speed: 

Hind  direction: 
Hawser  scope: 

Curve  number 

from  Appendix  O: 

Results 

Mean  tension: 
Dynamic  tension: 
Extreme  tension: 


6700  tons 
6  kts 
25  kts 
0  dec 
1500  ft 

4 


86.21  kips  (ESTIMATED) 
103.45  kips 
189.66  kips 


Note:  The  following  results  are  based  on  predicted, 
not  actual  tow  resistance 


Effects  of  tow  speed: 
Tow  speed  (kts) : 


6.0  7.0  8.0 


Curve  number: 


4  4  3 


Mean  tension  (kips) :  72.7  86.2  100.8 
Dynamic  tension  (kips):  87.2  103.5  90.7 
Extreme  tension  (kips):  159.9  189.7  191.5 


Effects  of  hawser  scope: 

Hawser  scope  (ft) :  1200  1500  1800 

Curve  number:  543 

Mean  tension  (kips):  85.8  86.2  86.6 

Dynamic  tension  (kips):  128.8  103.5  77.9 

Extreme  tension  (kips):  214.6  189.7  164.5 
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Appendix  C 

Installing  TOWCALC 


TOWCALC  is  provided  on  a  single  360  kilobyte  floppy  disk.  Included  is  an  installa¬ 
tion  program,  "setup.exe",  which  performs  all  necessary  tasks  to  get  TOWCALC  running  on 
a  computer.  To  install  TOWCALC,  first  ensure  approximately  500  kilobytes  of  memory  are 
available  on  the  hard  disk.  Insert  the  floppy  disk  in  drive  A,  and  type  "A:"  at  the  DOS 
prompt.  Type  setup"  and  follow  the  instructions  given  by  the  program.  When  finished, 
"setup"  exits  with  the  current  directory  as  "C:\TOWCALC".  To  enter  TOWCALC,  type 
"towcalc". 

The  source  code  for  "setup"  is  included  as  part  of  this  appendix. 
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/xxXxxxxxxXxXXxxxxxxxxXXxrtrxxxxxxx'rxxXXXxX*********************** 

File:  setup. c 

Author:  Todd  J.  Peltzer 

Last  update:  3  May  1989 

This  file  prepares  the  user' s  computer  for  installation  of 
TOWCALC  and  loads  the  necessary  files. 

XxxxXxxxxxxxxxxxxxXXxXXXXXXXXXXXXXXXXXXxXXXXXXXx****************/ 

#include  "stdio.h" 

((include  "dos.h" 


static  char  *label[]  = 

( 

"  TOWING  CALCULATIONS", 

"  Setup  Program", 

"  This  program  prepares  TOWCALC  for  use", 

"  on  your  computer.  Please  follow  the", 

"  directions  that  are  given 

"  Press  any  key  to  continue 

"  ....  please  wait  .  .  . 

"  ....  copying  files  .  . 

"  ....  cleaning  up  .  .  . 

Which  graphics  display  does  your  computer  have?". 

Color  Graphics  Array", 

Enhanced  Graphics  Array", 


CGA 

EGA 


}; 


l) 

"  2) 

"  3)  Hercules  :  Hercules  graphics  adapter", 

"Enter  number  of  your  graphics  display:  ", 

"  ....  cleaning  up  .  .  .  .", 

"To  run  TOWCALC,  change  directories  to", 

"  c:\\TOWCALC", 

"and  type  TOWCALC." 


void  wait ( ) ; 

main  () 

{ 

FILE  *out; 

int  i; 

int  result; 

char  sys_call (81] ; 

char  device [13]; 

int  mode ; 

/*  print  intial  message  on  screen  */ 
result  =  system ("els") ; 
printf ("\n\n%s\n\n", label [0] ) ; 
printf ("%s\n\n", label (1] ) ; 
printf ("%s\n", label (2] ) ; 
printf ("%s\n", label (3} ) ; 
printf ("%s\n\n\n", label [4] ) ; 
printf ("%s\n", label (5] ) ; 

wait  ( )  ; 

/*  create  directory  on  hard  drive  */ 
sprintf (sys_call, "mkdir  c:\\towcalc") ; 
printf ("\n%s\n",  label ( 6] )  ; 
result  =  system ( sys_call ) ; 

/*  copy  archive  to  TOWCALC' 3  directory  */ 
printf ("\n%s\n\n", label [7] ) ; 

sprintf (sys_call, "copy  a:towfiles.exe  c:\\towcalc") ; 
result  =  system(sys_call) ; 
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/*  extract  files  from  archive  */ 
result  =  system ("c: ") ; 
sprintf (sys_call, "cd  c:\\towcalc") ; 
result  =  system ( sys_call ) ; 
sprintf (sys_call, "towfiles") ; 
result  =  system (sys_call) ; 

/*  delete  archive  from  hard  drive  */ 
printf ("\n%s\n", label [8] )  ; 
sprintf (sys_call, "del  towfiles .exe") ; 
result  =  system ( sys_call ) ; 

/*  get  graphics  device  */ 
result  =  system( "cis") ; 
while  (1) 

{ 

for  (i=0;  i<5;  i++) 

printf ("%s\n", label [ 9+i] ) ; 
scanf ("%d", &i) ; 
if  (i==l) 

{ 

sprintf (device, "HALOIBMG.DEV") ; 

mode=l; 

break; 

} 

else  if  (i==2) 

{ 

sprintf (device, "HALOIBME . DEV" ) ; 

mode=4 ; 

break; 

} 

else  if  (i==3) 

{ 

sprintf (device,  "HALOHERC . DEV" ) ; 

moae=0 ; 

break; 

} 

else  continue; 


/*  clean  up  extraneous  HALO  device  drivers  */ 
if  (i==l) 

{ 

printf ("\n%s\n", label [14] ) ; 
sprintf (sys_call, "del  HALOIBME. DEV") ; 
result  =  system ( sys_call ) ; 
sprintf (sys_call, "del  HALOHERC. DEV") ; 
result  =  system ( sys_call )  ; 

) 

else  if  (i==2) 

{ 

printf ("\n%s\n", label[14) ) ; 
sprintf (sys_call, "del  HALOIBMG.DEV") ; 
result  =  system ( sys_call ) ; 
sprintf (sys__call, "del  HALOHERC. DEV") ; 
result  =  system ( sys_call ) ; 

) 

else  if  (i=3) 

{ 

printf ("\n%s\n", label  [14 ] )  ; 
sprintf (sys_call, "del  HALOIBMG.DEV") ; 
result  =  system ( 3ys_call ) ; 
sprintf (sys_call, "del  HALOIBME .DEV") ; 
result  =  system (sys_call) ; 
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/*  create  file  DEVICE.DAT  */ 
out=f open ( "DEVICE . DAT" , "w") ; 
fprintf (out, "%s\n%d\n",  device,  mode)  ; 
f close (out) ; 

/*  print  final  message  */ 
result  =  system ( "els") ; 
printf ("\n\n%s\n", label [15] ) ; 
printf  ("\n%s\n", label [16] ) ; 
printf ("\n%s\n", label [ 17] ) ; 


void  wait() 

{ 

union  inkey 

{ 

char  ch [ 2 ] ; 
int  i; 

}  c; 

/*  wait  for  keystroke  */ 
while  (1) 

{ 

c. i  =  bioskey (0) ; 

if  (c.ch[0] ) 

{ 

break; 

} 

else 

{ 


/*  read  the  key  */ 

/*  key  is  a  normal  key  */ 


/*  key  is  a  special  key  */ 


Appendix  D 

TOWCALC  Source  Code 


This  appendix  contains  the  source  code  for  TOWCALC.  There  are  eighteen  files 
listed:  one  "make"  file,  three  include  files,  and  fourteen  source  files. 

The  make  file  is  used  to  compile  the  program  using  the  Microsoft  "make.exe"  utility; 
TOWCALC  is  compiled  using  the  "large"  memory  model,  and  a  stack  size  of  16,384  bytes 
(hexadecimal  4000).  The  object  code  "halodvxx.obj"  and  the  library  "haloul.lib"  are  needed 
for  the  Halo  graphics  routines  (the  source  code  for  these  is  not  provided). 

The  include  files  are: 

keydef.h  :  auxiliary  byte  values  for  special  keys 
plthead.h  :  function  declarations  for  plotting  routines 
video.h  :  various  macro  definitions 

The  source  files  are: 

main.c  :  controls  overall  program  operation 

title  .c  :  displays  title  screen 

tug.c  :  supports  "Select  Tug"  option 

tow.c  :  supports  data  entry  for  self-propelled  ships 

tab.c  :  displays  data  base  for  selection  of  ship  type 

dis.c  :  displays  ship  data  summary;  allows  editing 

dock.c  :  supports  data  entry,  resistance  prediction  for  drydocks 

brg.c  :  supports  data  entry,  resistance  prediction  for  barges 

drg.c  :  supports  resistance  prediction  for  self-propelled  ships 

pull.c  :  supports  tug  evaluation 
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ext.c 


:  supports  estimation  of  extreme  tensions 
ip.c  :  supports  "Print  Report"  option 

plt.c  :  plotting  functions 

tlib.c  :  a  library  of  functions  used  throughout  TOWCALC 
The  make  file  used  to  compile  TOWCALC  is  listed  below. 

main.obj:  raam.o 

cl  /AL  /c  main.c 

title. obj:  title. c 

cl  /AL  /c  title. c 

brg.obj:  brg.c 

cl  /AL  /c  brg.c 

dock . ob  j :  dock . c 

cl  /AL  /c  dock.c 

tug. obj:  tug.c 

cl  /AL  /c  tug.c 

tow. obj:  tow.c 

cl  /AL  /c  tow.c 

tab. obj:  tab.c 

cl  /AL  /c  tab.c 

dis.obj:  dis.c 

cl  /AL  /c  dis.c 

drg.obj:  drg.c 

cl  /AL  /c  drg.c 

tlib.obj:  tlib.c 

cl  /AL  /c  tlib.c 

ext .obj:  ext . c 

cl  /AL  /c  ext.c 

pull. obj:  pull.c 

cl  /AL  /c  pull.c 

rp.obj:  rp.c 

cl  /AL  /c  rp.c 

pit. obj:  plt.c 

cl  /AL  /c  plt.c 

towcalc.exe:  main.obj  title. obj  brg.obj  dock. obj  tug. obj  tow. obj  tab. obj 

dis.obj  drg.obj  tlib.obj  ext. obj  pull. obj  rp.obj  pit. obj  halodvxx.obj 

link  /ST: 0x4000  /NOD  main+title+brg+dock+tug+tow+tab+dis+drg+tlib+ext+ 

pull+rp+plt+halodvxx,  towcalc, ,  llibc+llibfp+libh+em+haloul 
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/a************************************************************************** 
File:  kyedef.h 

This  header  file  contains  definitions  for  the  auxiliary  byte  values  for 
the  special  keys  on  an  IBM  keyboard. 

**************************************************************************** 


♦define  LEFT_ARROW  75 
♦define  RIGHT  ARROW  77 


♦define  UP_ARROW  72 
♦define  DOWN_ARROW  80 
♦define  PAGEJJP  73 
♦define  PAGE_D0WN  81 
♦define  HOME  71 
♦define  END  79 
♦define  ESC  27 
♦defina  BKSP  8 
♦define  INSERT  82 
♦define  DELETE  83 


♦define  CTRL_LEFT  115 
♦define  CTRL_RIGHT  116 
♦define  CTRL_END  117 
♦define  CTRL_PGDN  118 
♦define  CTRL_HOME  119 
♦define  CTRL_PGUP  132 

♦define  FI  59 
♦define  F2  60 
♦define  F3  61 
♦define  F4  62 
♦define  F5  63 
♦define  F6  64 
♦define  F7  65 
♦define  F8  66 
♦define  F9  67 
♦define  F10  68 

♦define  SHIFT_F1  84 
♦define  SHIFT_F2  85 
♦define  SHIFT_F3  86 
♦define  SHIFT_F4  87 
♦define  SHIFT_F5  88 
♦define  SHIFT_F6  89 
♦define  SHIFT_F7  90 
♦define  SHIFT_F8  91 
♦define  SHIFT_F9  92 
♦define  SHIFT_F10  93 

♦define  CTRL_F1  94 
♦define  CTRL_F2  95 
♦define  CTRL_F3  96 
♦  define  CTRL_F4  9  7 
♦define  CTRL  F5  98 


♦define 

CTRL_F 6  99 

♦define 

CTRL_F7  100 

♦define 

CTRL_F8  101 

♦define 

CTRL_F9  102 

♦define 

CTRL_F10  103 

♦define 

ALT_F1 

104 

♦define 

ALT_F2 

105 

♦define 

ALT_F3 

106 

♦define 

ALT_F4 

107 

♦define 

ALT_F5 

108 

♦define 

ALT_F6 

i09 

♦define 

ALT_F7 

110 

♦define 

ALT_F8 

111 

♦define 

ALT_F9 

112 

♦define 

ALT_F10  113 

♦define 

ALT_Q 

16 

♦define 

ALT_W 

17 

♦define 

ALT_E 

18 

♦define 

ALT_R 

19 

♦define 

ALT_T 

20 

♦define 

ALT_Y 

21 

♦define 

ALTJJ 

22 

♦define 

ALT_I 

23 

♦define 

ALT_0 

24 

♦define 

ALT_P 

25 

♦define 

ALT_A 

30 

♦define 

ALT_S 

31 

♦define 

A1T_D 

32 

♦define 

ALT_F 

33 

♦define 

ALT_G 

34 

♦define 

ALT_H 

35 

♦define 

ALT_J 

36 

♦define 

ALT_K 

37 

♦define 

ALT_L 

38 

♦define 

ALT_Z 

44 

♦define 

ALT_X 

45 

♦define 

ALT_C 

46 

♦define 

ALT_V 

47 

♦define 

ALT_B 

48 

♦define 

ALT_N 

49 

♦define 

ALT_M 

50 
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/A************************************************************************** 

File:  pithead. h 

This  header  file  contains  declarations  for  the  plotting 
routines  in  the  file  plt.c. 

****************************************************************************/ 

short  ntcl, ixO, iyO, ixl, iyl, npx, nfax, nfay, knumx, knumy, mode, icf , icb, npy, 
ipbx, ipby, ntix, ntiy, nxx, nyy; 

float  xO, yOp, xl, yl, xmin, xmax, ymin, ymax, tclx, tcly, scxx, scyy, xrange, 
yrange, xtic, ytic, xtx( 100] , yty (100] ,  xtl [100] , xtu (100] , xff , 
yf f , ytl (100) , ytu ( 100] , x31 ( 100] , x3u ( 100) , y31 ( 100) , y3u (100] ; 

char  cs ( 6] , ell (4 ] , cnul; 
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/*********************************************************************** 
File:  video. h 

This  header  file  contains  various  macro  definitions  used  throughout 
T0WCA1C. 

************************************************************************/ 

♦define  REV_VID  0x70 
♦define  N0RM_VID  7 
♦define  BLINK_REV_VID  CxFO 

♦define  ERROR  0 
♦define  WARN  1 
♦define  BLANK  2 

♦define  NONE  0 
♦define  SINGLE  1 
♦define  DOUBLE  2 

♦define  LOCKED  0 
♦define  TRAILING  1 
♦define  REMOVED  2 

♦define  ARS38  0 
♦define  ARSSO  1 
♦define  ATS1  2 
♦define  TATF166  3 

♦define  SHIP  0 
♦define  DOCK  1 
♦define  BARGE  2 
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/a*************************************************************************** 
File:  main.c 
Author:  Todd  J.  Peltzer 
Last  update:  29  April  1989 

This  file  contains  the  functions  which  control  overall  program 
operation . 


Functions : 
main  () 

get_options () 
main_menu () 
get_tow_menu ( ) 
initial () 
check_file () 

★I****************************************************************************/ 

♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h"  /*  Define  aux  byte  values  for  IBM  keyboard  */ 

♦include  "video. h" 

static  int  startrow*=2; 
static  int  startcol»20; 
static  int  ondrow=«22; 
static  int  endcol=60; 

static  char  header (]  = 

{ 

"PROGRAM  OPTIONS" 

); 


static  char  ‘options  ( ]  => 

{ 

"1)  Select  Tug 
”2)  Select  Tow 

"3)  Estimate  Dynamic  Tension", 
"4)  Print  Report  ", 

"5)  QUIT  " 


static  char  ‘optional (]  «* 

( 

"1)  Enter  new  data  ", 
"2)  Edit  existing  data", 
"3)  Retrieve  data  file" 

}; 


static  char  ‘label (]  = 

{ 

"TOW  DATA", 

"Options" 
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char  table{141) (81) ; 

/*  Table  G-2  data 

*/ 

char  tug (15); 

/*  tug  class 

*/ 

char  hull_no ( 24 ] ; 

/*  hull  number  entered  by  user 

*/ 

char  class (24); 

/*  class  of  ship  from  Table  G-2 

V 

char  text 1(39); 

/*  error  message  text  strings 

V 

char  text2(39); 

/  *  »  »  « 

*/ 

int  curve; 

/*  curve  number  from  extreme 

*/ 

int  flag (4); 

/*  error  checking  flag  array 

*/ 

int  type; 

/*  tow  type 

*/ 

float  tug_data(5); 

/*  array  to  store  tug  data 

*/ 

float  tow_data(5); 

/*  array  to  store  tow  data 

*/ 

float  ship  data (6); 

/*  array  to  store  Table  G-2  data 

*/ 

float  dock_data (7) ; 

/*  array  to  store  drydock  data 

*/ 

float  barge_data(8) ; 

/*  array  to  store  barge  data 

*/ 

float  resist  dat(5); 

/*  resistance  data 

*/ 

float  tension; 

/*  mean  towline  tension 

*/ 

float  extr_ten; 

/*  extreme  towline  tension 

*/ 

float  barge_re3 (6)  ; 

/*  computed  barge  parameters 

*/ 

float  tug  eval{7); 

/*  tug  evaluation  results 

V 

float  ext_data ( 10 ] ; 

/*  extreme  tension  results 

*/ 

float  spd_data(3)  (4) ; 

/*  tow  speed  effects  results 

*/ 

float  lgth  data(3](4); 

/*  hawser  length  effects  results 

*/ 

void  get_options ( ) ,  main 

menu ( ) , get_tow_menu ( ) ; 

void  initial (),  check_file () ; 

main ( ) 

{ 

int  i,  j; 

/*  dummy  counters  */ 

char  ch; 

/*  dummy  variable  */ 

for  (i=0;  i<4;  i++) 

flag[i)=0; 

/*  initialize  flags  */ 

els  () ; 

/*  clear  the  screen  */ 

set_video () ; 

/*  set  video  mode  */ 

initial () ; 

/*  check  for  all  necessary  data 

files  */ 

title  () ; 

/*  display  title  screen  */ 

cursor_of f () ; 

/*  turn  off  blinking  cursor  */ 

/*  draw  background  and  border  */ 

draw_window (startrow, startcol, endrow, endcol, DOUBLE, REV_VID) ; 
get_options (0) ;  /*  display  main  menu,  get  user  response  */ 


} 

This  function  controls  the  main  program  options. 

void  get_options (start) 
int  start; 

{ 

int  choice; 
static  int  extflag; 
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/*  display  main  program  menu;  get  user's  choice  */ 
main_menu (Schoice,  start) ; 

if  (choice==0)  /*  select  tug  */ 

( 

/*  get  tug  parameters  from  user  */ 
get_tug (tug,  tug_data,  flag) ; 
get_options (1) ; 

} 

else  if  (choice==l)  /*  select  tow  */ 

{ 

if  ( ! flag [0] ) 

{ 

3printf  (textl, "A  tug  has  not  been  selected"); 
sprintf (text2, "==>  please  select  a  tug  <=="); 
display_error (ERROR,  textl,  text2) ; 
cursor_off () ; 
get_options (0) ; 

) 

get_tow_menu (stype) ; 

} 

else  if  (choice==2)  /*  estimate  dynamic  tension  */ 

{ 

if  ( ! flag [0]  &&  !flag(l]) 

( 

sprintf (textl,  "Tug  and  tow  have  not  been  selected"); 
sprintf (text2, "=*>  please  select  a  tug  and  a  tow  <=s="); 
display_error (ERROR,  textl,  text2) ; 
cursor_of f ( ) ; 
get_options (0) ; 

} 

else  if  ( !flag[0] ) 

( 

sprintf (textl,  "A  tug  has  not  been  selected"); 
sprintf (text2, "“=>  please  select  a  tug  <=="); 
display_error (ERROR,  textl ,  text2 )  ; 
cursor_off () ; 
get_options (0)  ; 

} 

else  if  (!flag(l)) 

( 

sprintf (textl,  "A  tow  has  not  been  selected"); 
sprintf  (text2,  "»*>  please  select  a  tow  <=»“"); 
display_error (ERROR, textl , text2 ) ; 
cursor_off () ; 
get_options (1) ; 

} 

extreme (type,  Stension, Sextr_ten,  Scurve,  Sextflag) ; 
get_ext_opt (extf lag,  type,  curve,  tension,  extr_ten, 0) ; 
flag(3]»=l; 
get_options (2) ; 


} 
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/*  print  reports  */ 


else  if  (choice==3) 

{ 

if  ( ! flag [0 ]  &&  !flag(l]) 

{ 

sprintf (textl, "Tug  and  tow  have  not  been  selected"); 
sprintf (text2, "==>  please  select  a  tug  and  a  tow  <=="); 
display_error (ERROR, textl, text2)  ; 
cursor_of f ()  ; 
get_options (0)  ; 

} 

else  if  ( ! flag[0] ) 

{ 

sprintf (textl, "A  tug  has  not  been  selected"); 
sprintf (text2, "==>  please  select  a  tug  <=="); 
display_error (ERROR, textl, text2) ; 
cursor_off () ; 
get_options (0) ; 

} 

else  if  (!flag(l]) 

{ 

sprintf (textl, "A  tow  has  not  been  selected"); 
sprintf (text2, "==>  please  select  a  tow  <=="); 
display_error (ERROR, textl , text2 ) ; 
cursor_off () ; 
get_options ( 1 ) ; 

) 

else  if  ( ! flag(3] ) 

{ 

sprintf (textl, "Dynamic  tension  has  not  been  estimated"); 
sprintf  (text2,  "==■=>  please  select  Dynamic  Tension  <=="); 
display_error (ERROR, textl, text2) ; 
cursor _of t() ; 
get_options (2) ; 

) 

report () ; 
cursor_off () ; 
get_options (4 ) ; 

} 

else  if  (choice=“4  | |  choice<0)  /*  quit  */ 

{ 

els  () ; 

cursor_on ( ) ; 
exit (0) ; 

} 

) 

/a****************************************************************-*********** 
This  function  displays  the  main  program  menu  and  allows  the  user  to 
select  an  option  using  the  cursor  keys. 

*****************************************************************************/ 
void  main_menu (choice, hilite) 
int  ‘choice; 
int  hilite; 

( 


131 


int  i, start, end; 


/*  clear  background  */ 

clear (startrow+1,  startcol+l, endrow-1,  endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, started, endcol, header, REV_VID) ; 

/*  write  options  */ 

start  =  (endcol-startcol-strlen (options [3] )) /2  +  started; 
for  (i=0;  i<6;  i++) 

{ 

write_3tring(startrow+7+i,  start, options [i] , REV_VID) ; 

} 

/*  display  options  with  popup  menu;  get  response  */ 

•choice  =  popup (options, "12345",  5, startrow+6, start-2,  NONE, REV_VID, hilite) ; 


/a*************************************************************************** 
This  function  displays  the  tow  menu  and  allows  the  user  to  select  an 
option  using  the  cursor  keys. 

void  get_tow_menu (shiptype) 
int  * shiptype; 

{ 

int  i, start, choice, status, docktype; 


int  rowl=startrow+8; 

/* 

boundaries 

of  menu  */ 

int  row2*startrow+15; 

/* 

tl 

V 

int  coll=startcd+5; 

/* 

ft 

*/ 

int  col2=»startcol+35; 

/* 

II 

*/ 

FILE  *in; 

/* 

pointer  to 

file 

*/ 

unsigned  char  *p; 

/* 

buffer  for 

video 

*/ 

static  char  header  (]  •» 

( 

"Select  Type" 

} ; 

static  char  *type[]  =* 

{ 

"1)  Self-propelled  ships", 
"2)  Floating  drydocks  ", 
"3)  Barges  " 

); 


/*  clear  background  */ 

clear  (startrow+1,  startcd+l,  endrow-1,  endcd-1,  REV_VID) ; 
/*  write  header  */ 

write_header  (startrow,  started,  ended,  label  [0] ,  REV  _VID)  ; 
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/*  select  enter  new  data,  edit  current  data,  or  retrieve  file  */ 
start  =  (endcol-startcol-strlen  (label(l)) ) /2  +  started; 
write_string (startrow+8, start, label [1] , REV_VID) ; 

start  =  (endcol-startcol-strlen (optional [0] )) /2  +  started; 

choice  =  popup (options!, "123" , 3, startrow+10, start-2, NONE,  REV_VID, 0) ; 

if  (choice==0)  /*  enter  new  data  */ 

{ 

clear (startrow+5, startcol+1, endrow-3, endcol-1, REV  VXD) ; 
flag(l]=0; 

} 

else  if  (choice==l)  /*  edit  existing  data  */ 

{ 

if  (!flag(l))  /*  tow  data  does  not  exi3t  * / 

( 

sprintf (textl, "Tow  data  has  not  been  set;  please"); 

sprintf (text2, "enter  new  data  or  get  from  file"); 

display_error (ERROR,  textl,  text2) ; 

cursor_off () ; 

get_tow_menu (shiptype)  ; 

return; 

} 

flag[2]=0; 

} 

else  if  (choice==2)  /*  retrieve  data  file  */ 

{ 

flag(l]=*0; 
flag (2] =1; 

} 

else  if  (choice<0)  /*  ESCAPE  key  pressed  */ 

{ 

get_options (1) ; 
return; 

} 

if  (!flag(l])  /*  tow  data  not  set  */ 

( 

/*  display  options  with  popup  menu;  get  response  */ 
dear (startrow+5, startcol+l, endrow-1, endcol-1, REV_VID) ; 
start  *«  (endcol-startcol-strlen  (header)  ) /2  +  started; 
write_string( startrow+8, start, header, REV_VXD) ; 
start  •  (endcol-startcol-strlen (type [0] )) /2  +  started; 

*shiptype  »  popup (type, "123", 3, startrow+10, start-2, NONE, REV_VID, 0) ; 
}  /********/ 

if  ( ‘shiptype-wO)  /*  ship  */ 

(  /********/ 

/*  get  ship  tow  parameters  from  user  */ 

3tatus»got_tow_data (flag, hull_no, class, tow_data, ship_data) ; 
if  (status<0) 

{ 

cursor_off () ; 
get_tow_menu (shiptype) ; 
return; 
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} 


if  (!flag(l]  &&  !flag[2])  /*  ship  data  not  set  +! 

{ 

/*  read  string  data  from  file  */ 
in  =  fopen("tab_str.dat", "r") ; 

read_table (in, table, 80) ;  /*  80  is  length  of  cursor  highlight  */ 

/*  (full  screen)  */ 

fclose (in) ; 

/*  display  Table  G-2,  get  user' s  choice,  and  read  data  */ 
display_tab_g2 (table, ship_data, hull_no,  class) ; 

els  ()  ; 

) 

/*  display  data  from  selected  ship  class  */ 
display_data (hull_no,  class,  tow_data, ship_data) ; 

/*  compute  mean  towline  tension,  display  results  &  summary  */ 
mean_tension (tug_data, tow_data, ship_data, hull_no, class, Stension) ; 

/*  evaluate  tug  */ 
tugpull (*sniptype, stension) ; 

flag(l]*l; 
get_options (2)  ; 
return; 

}  /***********/ 

else  if  (*shiptype==l)  /*  drydock  */ 

/  /***********/ 

/*  get  drydock  type  */ 

3tatus=get_dock (flag,  &docktype, dock_data, hull_no, tow_data) ; 
if  (status<0) 

{ 

cursor_of f () ; 
get_tow_menu (shiptype) ; 
return; 

) 

if(!flag(l]  &&  !flag(2])  /*  tow  data  not  set  */ 

( 

/*  get  hull  condition  */ 
get_hull_cond (tow_data) ; 

/*  get  tow  speed  and  wind  speed  */ 
get_dock_towdata (tow_data) ; 

/*  estimate  displacement  for  extreme  tension  calculations  */ 
est_disp(0,  dock_data,  tow_data) ; 

} 

/*  display  summary;  give  edit  option  */ 
dock_summary (Sdocktype, dock_data, tow_data, hull_no) ; 
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/*  compute  resistance  and  display  results  */ 

get_dock_resist (hull  no, tug_data, dock_data, tow_data, Stension) 

/*  evaluate  tug  */ 
tugpull (*shiptype, fitension) ; 

flag[l]=l; 
get_options (2) ; 
return; 

}  /*********/ 

else  if  (*shiptype==2)  /*  barge  */ 

{  /*********/ 

/*  enter  barge  data  S  compute  resistance  */ 
status=get_barge_resist (flag,  hull_no,  tug__data,  tow_data, 
barge_data,  Stension) ; 

if  (status<0) 

( 

cursor_off () ; 
get_tow_menu (shiptype) ; 
return; 

} 

/*  evaluate  tug  */ 
tugpull (*shiptype, Stension) ; 

flag[l]=l; 
get_options  (2) ; 
return; 

} 

else 

( 

get_options  (1) ; 
return; 

) 

) 

/***************  ************************************************ 
This  function  (.hecks  for  the  presence  of  all  necessary  data 
files  by  repeated  calls  to  check_file()  before  continuing 
with  program  execution. 

★ft****************************************************'**********/ 

void  initial () 

( 

FILE  *in; 
char  fname(13]; 
char  device (13] ; 

sprint f(f name, "DEVICE.DAT") ; 
check_f ile (fname) ; 

in**fopen  (fname, "r") ; 

f gets (device, 13, in) ;  /*  read  graphics  driver  filename  */ 
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f close (in) ; 


check_file (device) ; 

sprintf (fname, "HALO104 .FNT") ; 
check_f ile (fname) ; 

sprintf (fname, "HALO105 .FNT") ; 
check_f ile (fname) ; 

sprintf (fname, "HALO106.FNT") ; 
check_file  (fname)  ; 

sprintf (fname, "HAL0201 .FNT") ; 
check_f  ile (fname) ; 

sprintf (fname, "TAB_STR.DAT") ; 
check_f ile (fname) ; 

sprintf (fname, "TABLE.DAT") ; 
check_f ile (fname)  ; 

sprintf (fname, "DOCK_STR.DAT") ; 
check_f ile (fname) ; 

sprintf (fname, "DRYDOCK.DAT") ; 
check_file (fname) ; 

sprintf (fname, "RS_WVHT.DAT") ; 
check_file (fname) ; 

sprintf (fname, "RH_DISP.DAT") ; 
check_file (fname) ; 

sprintf (fname, "TUGPUL1.DAT") ; 
check_file (fname) ; 

sprintf (fname, "CURVB.TAB") ; 
check  file (fname); 


/*************************************************************** 
This  function  checks  for  the  presence  of  a  given  file.  If  not 
present,  program  execution  is  terminated  with  error  code  1, 
****************************************************************/ 
void  check_f ile (fname) 
char  *fname; 

( 

FILE  *in; 
int  i; 

char  textl (37) ,  text2 (37)  ; 

if  (  (in«f open  (fname,  "r")  )"NULL) 
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{ 

sprintf (textl, "Missing  file  %s",fname); 
sprintf (text2, "==>  please  reload  file  from  disk  < 
di3play_error (ERROR, textl , text2) ; 
exit (1) ; 

> 

fclose (in) ; 
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/★A***************************************************************'******* 

File:  title.c 

Author:  Todd  J.  Peltzer 

Last  update:  30  April  1989 

This  file  contains  the  function  title  ()  which  uses  Halo  88  (tm) 
graphics  to  display  the  opening  screen  of  "TOWCALC". 


Functions : 
title () 

★********************************************x***************************/ 

♦include  "stdio.h" 

void  title () 

{ 

FILE  *in; 

char  device (13];  /*  variable  for  device  driver  name  */ 

union  inkey  { 
char  ch (2] ; 
int  i  ; 

}  c; 


static 

char 

font ( ]  = 

"HALO201.FNT"; 

/* 

Font 

file 

name  */ 

static 

char 

font2[]  = 

"HALO104.FNT"; 

/* 

Font 

file 

name  */ 

static 

char 

font3(]  = 

"HAL0105.FNT"; 

/* 

Font 

file 

name  */ 

static 

char 

font4 (]  = 

"HAL0106.FNT"; 

/* 

Font 

file 

name  */ 

static 

char  string (] 

=  "SUPSALV" ; 

/*  Text  ; 

string  */ 

static 

char 

string2 (] 

=«  "TOWING  CALCULATIONS"; 

/* 

tl 

*/ 

static 

char 

string3 (] 

=*  "A  COMPUTATIONAL  TOOL 

FOR"; 

/* 

II 

*/ 

static 

char 

string4 (] 

=  "OPEN  OCEAN  TOWING"; 

/* 

II 

*/ 

static 

char 

strings (] 

=  "Press  any  key  to  continue" 

;  /* 

It 

*/ 

float  height  =  100.0; 
float  asp  =  1.0; 
int  path  =0; 
float  iheight; 
float  width; 
float  offse; 
float  tx, ty; 
int  maxcolor; 
int  color; 
int  style  *  1; 


/*  Stroke  text  height  */ 

/*  Stroke  text  aspect  ratio  */ 

/*  Stroke  text  path  */ 

/*  Inquired  height  of  text  string  */ 

/*  Inquired  width  of  text  String  */ 

/*  Offset  for  descenders  */ 

/*  X  and  y  coordinate  text  cursor  location  */ 

/*  Maximum  color  variable  */ 

/*  Color  variable  for  screen  clear  */ 

/*  Initialize  che  style  for  hatchstyle  */ 


float  xl,yl,x2,y2; 
float  vxl , vyl , vx2 , vy2 ; 
float  x,y; 
int  i,j,n; 
int  mode; 


/*  World  coordinates  values  */ 
/*  Viewport  coordinates  */ 
/*  Graphics  cursor  position  */ 
/*  Counter  Variables  */ 
/*  Graphics  mode  */ 


int  border, back; 


/*  Viewport  background  and  border  values  */ 


in  »*  f open ( "device. dat",  "r") ; 
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n=fscanf (in,  "%s\n", device) ;  /*  read  device  driver  from  file  */ 

n=fscanf (in, "%d\n",  Smoae) ;  /*  read  graphics  mode  from  file  */ 

fclose (in) ; 

setdev (device ) ;  /*  Initialize  the  graphics  device  */ 

initgraphics (  Smode  ) ; 

inqcrange (Smaxcolor) ;  /*  Inquire  maximum  color  */ 

xl  =  0.0; 
yl  =  0.0; 
x2  =  1000.0; 
y2  =  1000.0; 

setworld(Sxl, Syl, Sx2, Sy2) ; 

vxl  =  0.1; 

vyl  =  0.1; 

vx2  =  0.9; 

vy2  =  0.9; 

border  =  maxcolor; 

back  =  0; 

setviewport (&vxl, &vyl, Svx2,  Svy2,  Sborder,  Sback) ; 

/a************************************************************************ 

*  Display  the  first  text  string  * 

************************************* -A:************************************/ 

setfont (font) ; 

setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, Sasp, spath)  ; 

inq3tsize (string, Siheight,  Swidth,  Sof fse) ; 

tx  =  (x2-width) /2; 

ty  =  700.0; 

movtcurabs (Stx, Sty) ; 

stext (string) ; 

•fe. 

/****************************★******************************************** 

*  Display  the  second  text  string  * 

ft************************************  ?•**★**★******★****★★*★★**★★★****★****/ 

style  =1; 
setfont (font2) ; 

setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, Sasp, Spath) ; 

inqstsize (string2, Siheight, Swidth, Sof fse) ; 

tx  =*  (x2-width) /2; 

ty  «  500.0; 

movtcurabs (Stx,  Sty) ; 

stext (string2)  ; 

/★ft*********************************************************************** 

*  Display  the  third  text  string  * 

***★********************************★***★*********★***★*****★****★****★***/ 

style  =1; 
height  =  50.0; 
setfont (font3) ; 
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setstclr (Smaxcolor,  Smaxcolor) ; 

setstext (Sheight, Sasp, Spath) ; 

inqstsite (string3, Siheignt,  Swidth,  Sof fse) ; 

tx  =  (x2-width)  /2; 

ty  =  350.0; 

movtcurabs (Stx,  Sty) ; 

stext (string3) ; 

^****t**********************************************************A****x*H** 

*  Display  the  fourth  text  string  * 

*********  **********************>ix****  *********************  **************  it 

inqstsize (strings, Siheight, Swidth,  Sof fse) ; 

tx  =  (x2-wiath> /2; 

ty  =  250.0; 

movtcurabs (Stx, Sty) ; 

stext (string4 ) ; 


/***********************************************★************************* 

*  Display  the  fifth  text  string  * 

**************************************************************************^ 
style  =1; 
height  =  40.0; 
setfont (font4 ) ; 

setstclr (Smaxcolor, Smaxcolor) ; 

setstext (Sheight, Sasp, Spath) ; 

inqstsize (strings, Siheight, Swidth, Sof fse) ; 

tx  =  (x2-width)/2; 

ty  =  75.0; 

movtcurabs (Stx, Sty) ; 
stext (stringS)  ; 

deltcur ()  ; 

/*  wait  for  keystroke,  then  exit  */ 
while  (1) 

( 

c.i  =  bioskey(O);  /*  read  the  key  */ 

if  (c.ch[0])  /*  key  i3  a  normal  key  */ 

( 

break; 

> 

else  /*  key  is  a  special  key  */ 

( 

break; 

} 


closegraphics () ;  /*  Close  graphics  */ 
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yf*******'******4******4*****'***********'****'***************X******************* 

File:  tug.c 

Author:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  the  functions  which  support  the  "Select  Tug" 
option  in  the  main  program. 


Functions : 
get_tug() 
get_tug_data ( ) 
get_tug_f ile ( ) 
get_f name ( ) 
save_tug_file () 

*****************************************************************************/ 
♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "kevdef.h" 

♦include  " video. h" 

static  char  'menu [ ]  = 

{ 

"1)  Enter  new  data  ", 

M2)  Edit  existing  data", 

”3)  Retrieve  data  file" 


static  char  *labell[]  = 

{ 

"Options", 

"Retrieve  File", 

"Enter  name  of  tug  file", 
"to  retrieve  (8  char  max) : 


static  char  *label[]  « 

{ 

"TOG  DATA", 

"Class:", 

"Hawser", 

"  diameter:", 

"  scope : " , 

"Chain  pendant:", 

"  size:", 

"  scope:" 


static  char  *units ( ) 

{ 

"in", 

"ft", 

"in", 

"ft" 

}; 
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static  char  * footer))  = 

{ 

"Please  enter  data.", 

"Is  all  data  correct?  (yes/no) :  ", 
"FI  Class  F2  Wire  scope", 

"F3  Chain  size  F4  Chain  scope", 

"  Press  INS  to  continue  ", 

"  Save  data  to  file?  (yes/no):  ", 
"  Enter  tug  file  name:  " 

}; 

char  *tug_menu[]=  { 

"ARS  38 
"ASS  50 
"ATS  1  ", 

"T-ATF  166" 

} ; 

static  char  choice [4]; 
static  char  fname(9); 

typedef  struct 

{ 

int  startcol; 
int  ended; 

}  data_box; 


static  data_box  input [ ]  = 
{ 


(30,45), 

/* 

tug 

*/ 

(35,41), 

/* 

hawser  dia 

*/ 

(35,41), 

/* 

hawser  scope 

*/ 

(35,41), 

/* 

chain  size 

*/ 

(35,41), 

/* 

chain  scope 

*/ 

(54,58), 

/* 

yes/no  choice 

*/ 

(49,58) 

}; 

/* 

tug  file  name 

*/ 

int  get_tug_file () ; 

void  get_tug_data ( ) ,  get_f name ( ) ; 
void  save_tug_f ile ( ) ; 

/**************************************************************************** 
This  function  prompts  the  user  for  data  concerning  the  tug.  A  popup 
menu  is  used  to  select  the  tug  class;  hawser  diameter  is  selected  auto¬ 
matically  based  on  this  choice.  Hawser  scope,  chain  size,  and  chain  scope 
are  all  input  by  the  user. 

I*****************************************************************************/ 

void  get_tug (tug,  tug_data,  flag) 
char  *tug; 
float  *tug_data; 
int  *flag; 

{ 
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FILE  *in,  *out; 
int  startrow=2; 
int  startcol=20; 
int  endrow=22; 
int  endcol=60; 

int  row, col, i, start, startl, key; 
int  status, choice 1; 
char  string(25); 
char  f name { 13 ] ; 

char  textl [39],  text2(39];  /*  error  message  text  */ 

if  (!flag(0])  /*  tug  data  does  not  exist  */ 

{ 

/*  initialize  data  variables  to  zero  */ 
tug [0]  =  NULL; 
for  (i=0;  i<5;  i++) 
tug_data(i]  =  0.0; 

} 

/ *  clear  background  */ 

clear (startrow+l, startcol+l, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, label (0] , REV__VID) ; 

/*  select  retrieve  file  or  enter  new  data  */ 

start  =  (endcol-startcol-strlen  (labell {0] ) ) /2  +  startcol; 

write_string ( star trow+8, start, labell (0] , REV_VID) ; 

start  =  (endcol-startcol-strlen (menu (0) )) /2  +  startcol; 

choicel  =  popup(menu, "123" , 3, startrow+10, start-2, NONE, REV_VID, 0) ; 

if  (choicel==0)  /*  enter  new  data  */ 

{ 

clear (startrow+5, startcol+l, endrow-3, endcol-1, REV_VID) ; 

) 

else  if  (choicel=»l)  /*  edit  existing  data  */ 

( 

if  ( ! flag [0] ) 

( 

sprintf (textl, "Tug  data  has  not  been  set;  please"); 
sprintf (text2, "enter  new  data  or  get  from  file"); 
display_error (ERROR, textl,  text2)  ; 
cursor_of f ( ) ; 

get_tug (tug, tug_data,  flag)  ; 
return; 

) 

} 

else  if  (choicel==2)  /*  retrieve  data  from  file  */ 

{ 

3tatus«get_tug_file (startrow, startcol, endrow, endcol, tug, tug_data, flag) 
if  (status<0) 

{ 
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cursor_of f () ; 

get_tug (tug,  tug_data, flag) ; 
return; 

) 

) 

else  if  (choiceKO)  /*  ESCAPE  key  pressed  */ 

( 

get_options (0) ; 
return; 

) 

clear (startrow+5,  startcol+1,  endrow-3,  endcol-1, REV_VID) ; 

/*  write  data  labels  */ 

write_string (startrow+5, startcol+3,  label [1] , REV_VID) ; 
write_string(startrow+7, startcol+3,  label [2] , REV_VID) ; 
write_string (startrow+8, 3tartcol+3,  label (3) , REV_VID) ; 
write_string (startrow+10, startcol+3,  label [4] ,REV_VID) ; 
write_string (startrow+12, startcol+3, label [5 ] , R£V_VID) ; 
write_string (startrow+13, startcol+3, label (6] , REV_VID) ; 
write_string(3tartrow+15, startcol+3, label [7] ,REV_VID) ; 

/*  write  units  */ 

write_string (startrow+8, 3tartcol+2+strlen (label (3) ) +2+7, units (0) , REV_VID) ; 
write_string( startrow+10,  startcol+2+strlen (label (3) ) +2+7, units ( 1) ,REV_VID) ; 
write_string (startrow+13, startcol+2+strlen (label [3] ) +2+7,  units (2) , REV_VID) ; 
write_string (startrow+15, startcol+2+strlen (label [3] ) +2+7, units (3] , REV_VID) ; 

if  (choicel==l  | |  choicel==2) 

( 

/*  display  data  * / 

/*  tug  class  */ 

write_string (startrow+5, startcol+2+strlen (label [1] ) +2, tug, REV_VID) ; 

/*  hawser  diameter  */ 

sprintf (string, "%6.2f ",  tug_data (1 J )  ; 

write_string (startrow+8, startcol+2+strlen (label [3] ) +2, string,  REV_VID) ; 

/*  hawser  scope  */ 

sprintf (string, "%6.0f ", tug_data (2] ) ; 

write_string (startrow+10,  startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

/*  chain  pendant  size  */ 

sprintf (string, "%6 . 2f ",  tug_data (3] ) ; 

write_string (startrow+13, startcol+2+strlen (label (3) )+2, string, REV_VID) ; 

/*  chain  pendant  scope  */ 

sprintf (string, "%6.0f", tug_data[4] ) ; 

write_string( startrow+15, startcol+2+strlen (label (3) ) +2, string, REV_VID) ; 

} 

else  if  (choicel"0) 

( 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen (footer (0) )) /2  +  startcol; 
write_string (endrow-3,  start,  footer [0] , REV_VID) ; 
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/*  create  normal  video  boxes  for  data  entry  */ 
vid_box (startrow+10 , startcol+2+strlen (label (3] ) +2, 6) ; 
vid_box (startrow+13, startcol+2+strlen (label [3] ) +2, 6) ; 
vid_box (startrow+15, startcol+2+strlen (label [3] ) +2, 6) ; 

/*******************************************************/ 

/*  get  user  input  */ 

/a******************************************************/ 

/*  get  tug  class  */ 
cursor_of f ( )  ; 

tug_data [0]  =  popup (tug_menu, 4 , startrow+4 , startcol+15, SINGLE, REV_VID, 0) 
if  (tug_data (0]  ==  ARS38) 

{ 

sprintf (tug, "ARS  38") ; 

write_string(startrow+5, startcol+2+strlen (label (1) ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.0; 

sprintf (string, "%6.2f",tug_data(lJ) ; 

write_string(startrow+8, startcol+2+strlen (label (3) ) +2, string, REV_VID) ; 

} 

else  if  (tug_data[0]  ==  ARS50) 

{ 

sprintf (tug, "ARS  50") ; 

write_string (startrow+5, startcol+2+strlen (label [1] ) +2, tug, REV_VID) ; 
tug_data(l]  ”  2.25; 

sprintf (string, "%6. 2f ", tug_data [1] ) ; 

write_string(startrow+8, startcol+2+strlen (label (3) ) +2,  string,  REV_VID) ; 

) 

else  if  (tug_data(0]  =  ATS1) 

{ 

sprintf (tug, "ATS  1") ; 

write_string (startrow+5,  startcol+2+strlen (label [1 ) ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.25; 

sprintf (string, "%6.2f ", tug_data (1] ) ; 

write_string(startrow+8, startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

) 

else  if  (tug_data{0]  =»  TATF166) 

{ 

sprintf (tug, "T-ATF  166"); 

write_string (startrow+5, startcol+2+strlen (ladjel (1) ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.25; 

sprintf (string, "%6. 2f ", tug_data (1) ) ; 

write_string (startrow+8, startcol+2+strlen (label (3) ) +2, string, REV_VID) ; 

) 

else 

{ 

get_tug (tug, tug_data, flag) ; 
return  ; 

) 

/*  get  hawser  scope  */ 

get_tug_data (2, startrow+10, startcol+2+strlen (label (3) ) +2,  tug,  tug_data) ; 
for  (i»0;  i<6;  i++) 

write  char (startrow+10,  startcol+2+strlen(label(3) )+2+i,  '  ' ,  REV_VID) ; 
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sprintf (string, "%6. Of ",  tug_data [2] ) ; 

write_string(startrow+10,  startcol+2+strlen (label [3] )+2, string, REV_VID) ; 
/*  get  chain  pendant  size  */ 

get_tug_data (3, startrow+13, startcd+2+strlen (label [3] ) +2, tug, tug_data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+13, startcol+2+strlen (label (3) ) +2+i, '  ' ,  REV  VID) ; 
sprintf (string, "%6 .2f ", tug_data [3 ] ) ; 

write_string (startrow+13,  startcol+2+strlen (label (3) ) +2, string, REV_VID) ; 
/*  get  chain  pendant  scope  */ 

get_tug_data(4,  startrow+15,  startcol+2+strlen (label (3] )+2,tug,  tug_data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+15,  startcol+2+strlen (label (3) ) +2+i, '  '  ,  REV_VID) ; 
sprintf (string, "%6.0f ", tug_data [4 ] ) ; 

write_string (startrow+15,  startcol+2+strlen (label [3] ) +2,  string, REV_VID) ; 


/*  erase  footer  */ 

start  =  (endcol-3tartcol-strlen (footer (0) ) ) /2  +  started; 
for  (i=0;  i<strlen (footer [0] > ;  i++) 

write  char (endrow-3, start+i, '  ',REV  VID); 


/ ***************************************************************** / 
/*  prompt  user  for  confirmation  of  data;  give  edit  option  */ 

/*****************************************************************/ 
start  =  started  +  3; 

write_string( endrow-3, start,  footer (1] ,REV_VID) ; 
vid_box (endrow-3, start+strlen (footer (1} ) , 4) ; 

get_tug_data (5,  endrow-3,  start+strlen (footer [1) ) , tug, tug_data) ; 

/*  test  if  data  correct  */ 

if  (  choice  (0]  !=' y'  &&  choice  (0 ]  !=•'  Y'  &&  choice  [0]  !  =N0LL  ) 

( 

/*  erase  previous  message  */ 

start  =■  started  +  3; 

for  (i“0;  i<strlen (footer [1] ) +4;  i++) 

write_char (endrow-3,  start+i, '  ' ,REV_VID) ; 

/*  write  quit  message  */ 

start*  (endcol-startcd-strlen  (footer  [4] )) /2  +  started; 
write_string(endrow, start, footer (4} ,  REV_VID) ; 

/*  write  first  line  of  edit  "menu"  */ 

start* (endcol-startcol-strlen (footer [2] )) /2  +  started; 
write_string (endrow-3, start,  footer (2) , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 
for(i=0;  i<2;  i++) 

( 

write_char (endrow-3,  start+i,  footer [2] (i) , N0RM_VID) ; 
write_char (endrow-3, start+9+i, footer [2] [i+9] , N0RM_VID) ; 

} 
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/*  write  second  line  of  edit  "menu"  */ 

startl= (endcol-startcol-strlen (footer [3] )) /2  +  started; 
write_string(endrow-2, startl, footer [3] , REV_VID) ; 

/*  write  function  key  indicators  in  NORM_VID  */ 
for(i=0;  i<2;  i++) 

{ 

write_char (endrow-2, startl+i, footer(3) [i] ,NORM_VID) ; 
write_char (endrow-2, startl+14+i, footer [3) [i+14] ,NORM_VID) ; 

} 

/*******************************★***★★**★********$********★*****/ 

/*  edit  data  */ 

/a*********************************************************  *★***/ 

/*  move  cursor  to  FI  highlight  */ 
cursor_on () ; 

goto_xy (endrow-3, start) ; 

/*  get  user's  choice  */ 
while  (1) 

{ 

key-=get_special  ()  ; 

/**************/ 
if  (key«=Fl)  /*  tug  class  */ 

{  /**************/ 

cursor_of f ; 

tug_data(0]  =  popup (tug_menu, 4, startrow+4, startcol+15,  SINGLE, REV_VID, 0) ; 
if  (tug_data(0]  ==»  ARS38) 

{ 

for  (i=0;  i<10;  i++) 

write_char (startrow+5, startcol+2+strlen (label [1] ) +2+i, '  ' , REV_VID) ; 
sprintf (tug, "ARS  38") ; 

write_string( startrow+5,  startcol+2+strlen (label [1] ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.0; 

sprintf (string, "%6 . 2f ", tug_data [1] ) ; 

write_string(startrow+8, startcol+2+strlen (Icibel (3) ) +2, string, REV_VID) ; 

/*  check  data  for  consistency  */ 
if  (tug_data [2] >2100) 

{ 

sprintf (textl, "Maximum  hawser  length  for  this  class"); 
sprintf (text2, "is  2100  ft — please  enter  new  length"); 
display_error (ERROR, textl , text2 ) ; 

vid_box (atartrow+10, startcol+2+strlen (label [3] ) +2, 6) ; 

get_tug_data (2,  startrow+10,  startcol+2+strlen (label (3) ) +2,  tug,  tug_data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+10,  startcol+2+strlen (label (3] ) +2+i,  '  ' ,  REV_VID) ; 
sprintf (string,  "%6.0f ",  tug_data (2) ) ; 

write_string(startrow+10,  startcol+2+strlen (label [3) )+2,  string,  REV_VID) ; 

) 

) 

else  if  (tug_data(0)  »«=  ARS50) 

{ 
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for  (i=0;  i<10;  i++) 

write_char (startrow+5, startcol+2+strlen (label [1] ) +2+i, '  ' , REV_VID) ; 
sprintf (tug, "ARS  50") ; 

write_string (startrow+5,  3tartcol+2+strlen (label (1) ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.25; 

sprintf (string,  "%6.2f ",  tug_data (1) ) ; 

write_string (startrow+8, startcol+2+strlen (label (3] ) +2, string, R£V_VID) ; 

/*  check  data  for  consistency  */ 
if  (tug_data(2]>3000) 

{ 

sprintf (textl,  "Maximum  hawser  length  for  this  class"); 
sprintf (text2, "is  3000  ft — please  enter  new  length"); 
dispiay_error (ERROR, textl,  text2) ; 

vid_box (startrow+10, startcol+2+strlen (label [3] ) +2, 6)  ; 

get_tug_data (2,  startrow+10,  startcol+2+strlen (label (3] ) +2, tug, tug_data) ; 
for  (i=*0;  i<6;  i++) 

write_char (startrow+10, startcol+2+strlen (label (3) ) +2+i,  '  ' , REV_VID) ; 
sprintf (string, "%6 . Of ", tug_data (2)); 

write_string( startrow+10, startcol+2+otrlen (label (3) ) +2, string, REV_V1D) ; 

} 

) 

else  if  (tug_data[0]  ==  ATS1) 

{ 

for  (i=0;  i<10;  i++) 

write_char (startrow+5, startcol+2+strlen (label [1] ) +2+i, '  ' ,REV_VID) ; 
sprintf (tug, "ATS  1"); 

write_string( startrow+5,  startcol+2+strlen (labal (1) ) +2, tug, REV_VID) ; 
tug_data(l]  =  2.25; 

sprintf (string,  "%6.2f",  tug_data(l] ) ; 

write_string( startrow+8, startcol+2+strlen (laJoel [3] ) +2, string,  REV_VID) ; 

/*  check  data  for  consistency  */ 
if  (tug_data(2] >3000) 

( 

sprintf (textl, "Maximum  hawser  length  for  this  class"); 
sprintf (text2, "is  3000  ft — please  enter  new  length"); 
display_error (ERROR, textl, text2) ; 

vid_box (startrow+10, startcol+2+strlen (label (3) ) +2, 6) ; 

get_tug_data (2,  startrow+10, startcol+2+strlen (label [3) ) +2,  tug,  tug_data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+10,  startcol+2+strlen (label (3) ) +2+i,  '  ' , REV_VID) ; 

sprintf (string, "%6 . Of",  tug_data (2] ) ; 

write_string (startrow+10, startcol+2+strlen (label (3 J ) +2, string, REV_VID) ; 

} 

} 

else  if  (tug_data(0)  ==  TATF166) 

( 

for  (i*0;  i<10;  i++) 

write_char (startrow+5, startcol+2+strlen (label (1) ) +2+i, '  ' , REV_VID) ; 
sprintf (tug,  "T-ATF  166"); 

write_string( startrow+5, startcol+2+strlen (ladsel [1] ) +2, tug, REV_VID) ; 
tug_data(l)  =  2.25; 

sprintf (string, "%6 . 2f ",  tug_data (1) ) ; 
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write_ string (startrow+8, startcol+2+strlen (label [3] ) +2, string, REV_VID) ; 

/*  check  data  for  consistency  */ 
if  (tug_data{2] >2500) 

{ 

sprintf (textl, "Maximum  hawser  length  for  this  --.las3"); 
sprintf (text2, "is  2500  ft--please  enter  new  length"); 
display_error (ERROR,  textl,  text2)  ; 

vid_box (startrow+10, startccl+2+strlen (label (3) ) +2, 6) ; 

get_tug_data (2,  startrow+10,  startcol+2+strlen (label (3) ) +2,  tug,  tug  data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+10, startcol+2+strlen (label (3) ) +2+i, '  ' , REV_VID) ; 
sprintf (string, "%6 . Of", tug_data [2] )  ; 

write_string (startrow+10, startcol+2+strlen (label (3) ) +2, string, REV_VID) ; 

) 

) 

cursor_on  ( )  ; 

goto_xy (endrow-3,  start) ; 

}  /**************/ 

else  if  (key==F2)  /*  wire  scope  */ 

{  J  **  *★  *  *  ★  ★  icic  -k ★  * ★  j 

vid__box (startrow+10, startcol+2+strlen (label (3) ) +2,  6) ; 

get_tug_data (2,  startrow+10,  startcol+2+strlen (label (3] ) +2, tug, tug_data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+10, startcol+2+strlen (label (3] ) +2+i,  '  ' , REV_VID) ; 
sprintf (string, "%6 .Of ", tug_data (2) ) ; 

write_string (startrow+10,  startcol+2+strlen (label [3] )+2, string, REV_VID) ; 
cursor_on  ( )  ; 

goto_xy (endrow-3,  start+9) ; 

J  /***★**********/ 

else  if  (key==F3)  /*  chain  size  */ 

{  /**************/ 

vid_box (startrow+13, startcol+2+strlen (label [3] ) +2 , 6) ; 

get_tug_data (3,  startrow+13 , startcol+2+strlen (label [3] ) +2, tug, tug_data) ; 
for  (i=0;  i<6;  i++) 

write_char (startrow+13,  startcol+2+strlen (label [3] ) +2+i,  '  '  ,REV_VID) ; 
sprintf (string,  "%6. 2f ", tug_data [3] ) ; 

write_string (startrow+13,  startcol+2+surlen (label (3) ) +2,  string, REV_VID) ; 
cursor_on ( ) ; 

goto_xy (endrow-2,  startl) ; 

}  /***************/ 

else  if  (key=-F4)  /*  chain  scope  */ 

{  /***************/ 

vid_box (startrow+15, start col+2+strlen (label (3) ) +2, 6) ; 

get_tug_data (4,  startrow+15,  startcol+2+strlen (label (3) ) +2,  tug,  tug_data) ; 
for  (i>«0;  i<6;  i++) 

write_char (startrow+15,  startcol+2+strlen (label (3 J ) +2+i,  '  '  ,  REV_VID) ; 
sprintf (string,  "%6.0f ",  tug_data (4) )  ; 

write_string (startrow+15, startcol+2+strlen (label [3] ) +2,  string, REV_VID) ; 
cursor_on ( ) ; 

goto_xy (endrow-2,  startl+14)  ; 

}  /******************/ 

else  if  (key»**INSERT)  /*  quit  edit  mode  */ 

{  /******************/ 
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/*  erase  menu  */ 

for  (i»0;  Kstrlen (footer [2] ) ;  i++) 

write_char (endrow-3, start+i, '  ' , REV_VID) ; 
for  (i=0;  i<strlen (footer (3] ) ;  i++) 

write_char (endrow-2, 3tartl+i, '  ' , REV_VID) ; 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen (footer (4) )) /2  +  started; 
for  (i=0;  i<strlen (footer (4] ) ;  i++) 

write_char (endrow, start +i( 205 , REV_VID) ; 
break; 

} 

) 

cursor_off () ; 

} 

else  /*  data  is  correct;  no  editing  necessary  */ 

{ 

/*  erase  previous  message  */ 

start  =  started  +  3; 

for  (i=0;  i<strlen (footer (1] ) +4 ;  i++) 

write_char (endrow-3, start+i,  '  '  , REV_VID) ; 

} 

/*  prompt  to  save  data  to  file  */ 

3tart  =  startcol  +3; 

write_string (endrow-3, start, footer [5] ,REV_VID) ; 
vid_box( endrow-3, start+strlen (footer ( 5] ) ,  4) ; 

get_tur_data (5, endrow-3 , start+strlen (footer (5] )  ,  tug, tug_data) ; 

if  (  choice  (0]  !=' n'  &&  choice  [0]  !=*'  N'  )  /*  save  data  */ 

{ 

/*  erase  previous  message  */ 
start  =  startcol  +3; 

for  (i=0;  Kstrlen (footer ( 1] ) +4 ;  i++) 

write_char (endrow-3, start+i, '  ' , REV_VID) ; 

save_tug_f ile  (startrow,  started ,  endrow,  ended,  tug,  tug_data) ; 

} 

flag(0]=l;  /*  set  flag  for  presence  of  tug  data  */ 

} 

/********^f****^'*r*r***^r*^*ilf**^*****^******^^********’A:*********^^****^*****A**** 

This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  get_tug() .  Uses  screen_getstring ()  for  screen  I/O.  Some  data 
checking  is  performed  for  each  data  type. 

I*****************************************************************************/ 

void  get_tug_data (i, row, col, tug,  data) 

int  i; 

int  row; 

int  col; 

char  *tug; 

float  *data; 

( 

int  nfcr;  /*  required  arg  for  stofa()  */ 

int  status;  /*  takes  return  value  for  stofa()  */ 
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char  string(24]; 

/* 

input  3triig 

*/ 

char  textl (39],  text2(39); 

/* 

error  message  text 

*/ 

int  j,  k; 

/* 

counters 

*/ 

int  length; 

char  ch; 

cursor_on () ; 

/* 

turn  on  cursor 

*/ 

goto_xy (row, col) ; 

/* 

move  cursor  to  start  of  box 

*/ 

/*  get  user  input  */ 

screen_getstrg(i, row, col,  string, NORM_VID, input) ; 

if  (i>l  &&  i<5) 

{ 

/*  check  for  valid  numeric  input  */ 
for  (k=0;  k<strlen (string) ;  k++) 

( 

if  (  string [k]==' .'  )  ; 

else  if  (string(k]<' 0'  ||  string(k)>' 9' ) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl,  "  ")  ; 
vid_box (row, col, 6)  ; 
get_tug_data (i, row,  col, tug, data) ; 
return  ; 

) 

) 

/*  if  input  string  contains  valid  numbers  only,  convert  string  to  float  */ 
status  »  stofa (string, sdata (i) , &nbr, 1) ; 

) 

else  /*  i=»5  */ 

{ 

3trcpy (choice, string)  ; 

) 

/**************  ********************************** *  J 

/*  check  data  for  consistency  */ 

/*****■********★*****★*****★***★**********★********/ 
if  (i=“2)  /*  check  hawser  scope  */ 

( 

if  (data(i]<«0.0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " ) ; 
vid_box(row, col, 6) ; 
get_tug_data (i, row,  col, tug, data) ; 
return  ; 

} 

if  (data(i]<1000) 

{ 

sprintf (textl, "No  extreme  tension  data  for  scopes"); 
sprintf (text2, "less  than  1000'  --  please  try  again"); 
display_error (ERROR, textl, text 2) ; 
vid_box (row, col, 6) ; 
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get_tug_data (i,  row,  col,  tug,  data) ; 
return; 

} 

if  (data (0] ==ARS38  &&  data ( i] >2100) 

{ 

sprintf (textl,  "Maximum  hawser  length  for  this  class"); 

sprintf (text2, "is  2100  ft — please  try  again"); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 6) ; 

get_tug_data(i, row, col, tug,  data) ; 

return; 

) 

if  (  (data (0) ==ARS50  ||  data{0) ==ATS1)  &&  data (i) >3000) 

{ 

sprintf (textl, "Maximum  hawser  length  for  this  class"); 

sprintf (text2, "is  3000  ft — please  try  again"); 

display_error (ERROR,  textl, text2)  ; 

vid_box(row,col,  6)  ; 

get_tug_data(i,  row, col,  tug,  data) ; 

return; 

) 

if  (data [0] ==TATF166  &&  data (i) >2500) 

sprintf (textl, "Maximum  hawser  length  for  this  class"); 

sprintf (text2, "is  2500  ft — please  try  again"); 

display _error (ERROR, textl , text2 )  ; 

vid_box (row,  col,  6) ; 

get_tug_data(i, row,  col,  tug,  data) ; 

return; 

) 

) 

if  (i^=3)  /*  check  chain  size  */ 

{ 

if  (data(i]<0  ||  data(i]>20.0) 

{ 

sprintf (textl,  "Invalid  entry;  try  again"); 
display_error (ERROR,  textl ,  "  " )  ; 
vid_box (row, col, 6) ; 
get_tug_data (i,  row, col, tug, data) ; 
return  ; 

} 

) 

if  (i=**4)  /*  check  chain  scope  */ 

{ 

if  (data(i]<0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_err or (ERROR, textl ,  "  " )  ; 
vid_box (row, col, 6) ; 
get_tug_data (i,  row,  col,  tug,  data) ; 
return  ; 

) 

else  if  (data(i]>500.0) 

{ 
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sprintf (textl, "Scope  of  chain  is  unusually  large"); 

sprintf (text2, "=>please  check  this  entry<="); 

display_error (WARN,  textl,  text2) ; 

vid_box (row, col, 6) ; 

get_tug_data (i,  row,  col,  tug,  data) ; 

return  ; 

) 

} 

cursor_off () ; 
goto_xy (0,0) ; 

) 

/*★*************★****★***★*******★**★*★★*********★****★*★★★**★★** 
This  function  retrieves  tug  data  from  a  user  specified  file. 

**************x**************************************************/ 

get_tug_f ile  (startrow,  started,  endrow,  ended,  tug,  tug_data,  flag) 

int  startrow,  started; 

int  endrow,  ended; 

char  *tug; 

float  *tug_data; 

int  *flag; 

{ 

FILE  *in; 

char  fname  ( 13  ]  ; 

char  inline (813; 

char  textl [39] , text2 (39] ; 

int  i, j, status, nbr; 

float  array (2]; 

int  start; 

start  =  (endcol-startcol-strlen  (labell  (1J ) ) /2  +  started; 
write_string(startrow+8, start, labell (1] , REV_VID) ; 
for  (i=0;  i<2;  i++)  /*  write  prompt  */ 

( 

start  =  startcol+3; 

write_string(startrow+10+i, start, labell [i+2] , REV_VID) ; 

} 

vid_box (startrow+ll, start+strlen(labell [3] ) , 9) ; 
sprintf (textl, "Type  'Q'  to  quit"); 

start  «  (endcol-startcol-strlen (textl) ) /2  +  startcol; 
write_string(endrow-3,  start, textl,  REV_VID) ; 

get_fname  (6, 0, startrow+ll, startcol+3+strlen (labell (3 J ) , fname) ; 

/*  check  for  quit  option  */ 
if  (fname (03=“' Q' ) 

( 

cursor_of f ( ) ; 
goto_xy (0,0); 
return  (-1)  ; 

) 

in=f open (fname, "r") ; 
if  (in==N0LL) 
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{ 

sprintf (textl, "Can' t  open  file  %s",fname); 
display_error  (ERROR,  textl,  "  *’); 

clear (startrow+8,  startcol+l, endrow-3, endcol-1, REV_VID) ; 
get__tug_f  ile (startrow,  startcol,  endrow,  endcol,  tug,  tug_data, flag) ; 
return  (0) ; 

} 

else 

{ 

/*  read  data  from  file  */ 
fgets (inline, 81, in) ; 
strstrip( inline) ; 

if  (! (strncmp (inline, " !  Tug  data  file", 15))) 

( 

fgets (inline, 81, in) ; 
fget3 (inline, 81, in) ; 
strncpy (tug, inline, 15 )  ; 
strstrip(tug) ; 

/*  test  for  tug  type,  assign  value  to  tug__data[0)  */ 
if  (! (strncmp (tug, "ARS  38", 6))) 
tug_data(0]=0; 

else  if  (! (strncmp (tug, "ARS  50", 6))) 
tug_data ( 0 ] =1 ; 

else  if  (! (strncmp (tug, "ATS  1",5))) 
tug_data ( 0 ] =2 ; 

else  if  (! (strncmp (tug, "T-ATF  166", 9))) 
tug_data [ 0 ] =3 ; 
else 
( 

sprintf (textl, "Tug  type  in  file  i3  not  in  data  base"); 
sprintf  (text2,  "=*=>  please  try  again  <=="); 
display_error (ERROR,  textl,  text2)  ; 

get_tug__file (startrow, startcol, endrow, endcol, tug, tug_data, flag) ; 
return  (0); 

} 

/*  read  remaining  data  */ 
for  (i=0;  i<4;  i++) 

( 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
status»stof a (inline, array, &nbr, 1) ; 
tug_data(i+l)=array(0] ; 

} 

fclose (in) ; 

} 

else 

{ 

sprintf (textl, "%s  is  not  a  tug  data  f ile ! " , fname) ; 
display_error (ERROR, textl, "  ")  ; 

clear (startrow+8, startcol+1, endrow-3, endcol-1, REV_VID) ; 
get_tug_file (startrow, startcol,  endrow, endcol, tug,  tug_data, flag) ; 
return  (1); 
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} 


} 

return (0) ; 


y**************************************************************** 
This  function  gets  the  filename  from  the  user. 
*********************■*****★*******★**'*★★*****★★★*****★********•***/ 
void  get_fname (i,  type,  row, col, fname) 
int  i; 
int  type; 
int  row; 
int  col; 
char  * fname; 

{ 


char  textl [39] ,  text2 (39] ; 

/* 

error  message  te;-t 

*/ 

int  j,  k=0; 

/* 

counters 

*/ 

char  ch; 

cursor_on () ; 

/* 

turn  on  cursor 

*/ 

goto  xy (row,  col); 

/* 

move  cursor  to  start  of  box 

*/ 

/*  get  user  input  */ 

screen_getstrg(i, row, col, fname, tJORM_VID, input) ; 
airstrip (fname) ; 

/*  check  for  quit  option  */ 
if  (fname (0]=='  Q'  ) 

{ 

cursor_of f ( ) ; 
goto_xy (0, 0) ; 
return  ; 

) 

/*  check  for  valid  filename  */ 

while  (  (ch=fname (k] )  !=  NULL  ) 

{ 

if  (  (ch>»'a'  66  ch<«'z')  ||  (ch>='A'  66  ch<=' 2' ) 

||  (ch>='0'  56  ch<=*'  9'  )  ||  ch  ==  ||  ch  ==  '-') 

{ 

k++; 

continue; 

) 

else 

{ 

sprintf (textl, "File  name  contains  invalid  characters"); 

sprintf  (text2,  "=»>  please  try  again  <“=•"); 

display_err or (ERROR, textl , text2 ) ; 

vid_box(row, col, 9) ; 

get_fname  (i,  type,  r«_w,  col,  fname)  ; 

return  ; 

) 

) 
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/*  tug  */ 


if  (type=*=0 ) 

{ 

sprintf (text!, "%s.tug", fname) ; 
s lctouc (textl , text2 ) ; 
strncpy (fname, text2, 12) ; 
strstrip( fname) ; 

) 

else  /*  tow  */ 

( 

sprintf (textl, "%s .tow", fname) ; 
slctouc (textl, text2) ; 
strncpy (fname, text2, 12) ; 
str strip (fname) ; 

} 

cursor_off () ; 
goto__xy  (0,  0)  ; 

) 

/*****************★********************£************************* 

This  function  writes  the  tug  data  to  a  user  specified  file. 

★  a******************************************************  *********/ 

void  save_tug_f  ile  (startrow,  started,  endrow,  ended,  tug,  tug_data) 
int  3tartrow,  started,  endrow,  ended; 
char  *tug; 
float  *tug_data; 

{ 

FILE  *out; 
char  fname ( 13 ) ; 
char  3tring(25J; 
char  textl (39]; 
int  start; 

/*  prompt  for  file  name  */ 
start  =  started  +  3; 

write_string (endrow-3, start, footer ( 6] , REV_VID) ; 
vid_box (endrow-3, start+strlen (footer ( 6] ) +3,  9) ; 

get_fname (6, 0, endrow-3, start+strlen (footer ( 6] ) +3,  fname) ; 
out=f open (fname, "w" ) ; 

if  (out=—N0LL) 

( 

sprintf (textl, "Can' t  open  file  %s", fname); 
display_error (ERROR,  textl,  "  ") ; 

save_tug_file  (startrow,  started,  endrow,  ended,  tug,  tug_data) ; 
return; 

) 

else 

{ 

/*  write  data  to  file  */ 
fprintf (out, " !  Tug  data  file\n"); 
fprintf (out, " !  Tug  class:\n"); 
fprintf (out, "%s\n",  tug) ; 
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fprintf (out, " !  Hawser  diameter  (inches) :\n") ; 
sprintf (string, "%-.2f\n", tug_data [ 1 ) ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out, " !  Hawser  scope  (feet) :\n") ; 
sprintf (string, If \n", tug_data (2] ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out, "  !  Chain  pendant  diameter  (inches) : \n") ; 
sprintf (string, 2f\n", tug_data (3) ) ; 
fprintf (out, "%s",  string) ; 

fprintf (out, " !  Chain  scope  (feet):\n"); 
sprintf (string,  "%-.2f\n",  tug_data [4] )  ; 
fprintf (out, "%s", string)  ; 

} 

f close (out) ; 
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/**************************************************************************** 
File:  tow.c 

Author:  Todd  J.  Peltzer 
Last  update:  17  April  1989 

This  fiie  contains  functions  which  support  the  option  "Select  Tow" 
in  the  main  program. 


Functions : 

get_tow_data  ( ) 
get_data ( ) 
get_ship_file () 
save_ship_f ile ( ) 

************************* **************************************************** ^ 
♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "keydef.h" 

♦include  "video. h" 

static  char  *label(]  = 

{ 

"TOW  DATA", 

"Hull  no:", 

"Full  load  displacement:", 

"Tow  speed:", 

"Max  expected  wind  spd:", 

"Rel  wind  direction:", 

"Propeller  status:" 


static  char  *labell(]  * 

{ 

"Options", 

"Retrieve  File", 

"Enter  name  of  tow  file", 

"to  retrieve  (8  char  max) :  " 


static  char  *units()  =» 

{ 

"tons", 

"kts", 

"kts" , 

"deg" 

); 

static  char  ‘footer  (]  «> 

{ 

"Please  enter  data.", 

"Is  all  data  correct?  (yes/rio)  :  ", 
"FI  Hull  F2  Disp  F3  Tow  F4  Wind", 
"F5  Rel  wind  F6  Prop  status", 

"  Press  INS  to  continue  ", 
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"  Save  data  to  file?  (yes/no) :  ", 
"  Enter  tow  file  name:  " 


char  ‘menu ( ] =  { 
"Locked  ", 
"Trailing", 
"Removed  " 


static  char  choice [4]; 

typedef  struct 

{ 

int  started; 
int  ended; 

}  data_box; 

static  data_box  input []  = 
{ 


(32,55), 

/* 

hull  no 

*/ 

(47,54), 

/* 

displacement 

*/ 

(47,54), 

/* 

tow  speed 

*/ 

(47,54), 

/* 

wind  3peed 

*/ 

(47,54), 

/* 

wind  direction 

*/ 

(54,58), 

/* 

yes/no  choice 

*/ 

(49,58) 

/* 

tow  file  name 

*/ 

}; 


void  get_data () , save_ship_f ile ( ) ; 

/a*************************************************************************** 
This  function  prompts  the  user  for  data  concerning  the  tow.  Input  items 
are:  hull  number,  displacement,  tow  speed,  wind  speed,  relative  wind 
direction,  and  propeller  status.  A  popup  menu  is  used  to  select  propeller 
status . 

*****************************************************************************/ 

get_tow_data (flag, hull_no,  class, tow_data,  ship_data) 

int  *flag; 

char  *hull_no; 

char  *class; 

float  *tow_data; 

float  *ship_data; 

( 

int  startrow-2; 
int  startcol=20; 
int  endrow*22; 
int  endcol=60; 

int  row,  col,  i,  start,  startl,  key; 

int  status, choicel; 

char  string (25] , textl (39] , text2 (39] ; 

if  (!flag(l])  /*  tow  data  does  not  exist  */ 
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{ 

/*  initialize  data  variables  to  zero  */ 
hull_no(0]  =  NULL; 
for  (i=0;  i<5;  i++) 
tow_data(i)  =  0.0; 

} 

/*  clear  background  */ 

clear (ntartrow+1,  startcol+1, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol,  ended, label [0] ,  REV_VID) ; 

if  (!flag(l)  &&  !flag(2])  /*  enter  new  data  */ 

{ 

clear (startrow+5,  startcol+1,  endrow-3, endcol-1, REV_VID) ; 

} 

else  if  (flag[l]  &&  1  flag [ 2 ] )  ;  /*  edit  existing  data  */ 

else  if  (flag(2])  /*  retrieve  data  from  file  */ 

{ 

status=get_ship_f ile (startrow, startcol, endrow, ended, hull  no, class, 
tow_data, ship_data,  flag) ; 
if  (status<0) 

{ 

cursor_off () ; 
flag (2] =0; 
return  (-1) ; 

) 

clear (startrow+5, startcol+1, endrow-3, endcol-1,  REV_VT£>) ; 

/*  write  data  labels  */ 

for  (row=*startrow+5,  i»l;  i<=»6;  i++,row  +=  2) 

write_string(row, startcol+3, label (i) ,REV_VID) ; 

/*  write  units  */ 

for (row=startrow+7, i=0;  i<4;  i++,  row  +=  2) 
write_string(row,  endcol-5,  units [i] ,  REV_VID) ; 

if  (flag(l)  ||  flag(2] ) 

{ 

/*  display  data  */ 

/*  hull  number  */ 

write_string( startrow+5, startcol+2+strlen (label (1) ) +2, hull_no, REV_VID) 
/*  displacement  */ 

sprintf  (string,  "%6.  Of ",  tow__data  (0] )  ; 

write_string (startrcwT^, atartcol+2+strlen (label (2) ) +2, string, R'3V_VID) ; 
/*  tow  speed  */ 

sprintf (string, "%6 . If", tow_data (1) ) ; 

write_string (startrow+9, startcol+2+strlen (label (3) ) +15, string, REV_VID) 
/*  wind  speed  */ 
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sprintf (stringj "%6. If ", tow_data (2] ) ; 

write_string(startrow+ll, startcol+2+strlen(label(4) )+3, string, REV_VID) ; 

/*  relative  wind  direction  */ 
sprintf (string, "%6. If ",  tow_data [3] )  ; 

write_string(startrow+13, startcol+2+strlen(label(S] )+6,  string,  REV_VID) ; 

/*  prop  status  */ 
if  (tow_data(4]  ==  LOCKED) 

{ 

write_string (startrow+15,  startcol+2+strlen(label[6] )+10,menu[0) ,REV_VID) ; 

) 

else  if  (tow_data(4]  ==  TRAILING) 

{ 

write_string (startrow+15,  startcol+2+strlen (label (6] ) +10,  menu ( 1] , REV_VID) ; 

/ 

else  if  (tow_data (4]  ==  REMOVED) 

{ 

write_string(startrow+15,  startcol+2+strlen (label [6] )+10,menu(2) ,REV_VID) ; 

) 

} 

else  if  ( ! flag ( 1] ) 

{ 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen (footer (0) )) /2  +  startcol; 
write_string(startrow->-17,  start,  footer  (0) ,  R£V_VID)  ; 

/*  create  normal  video  boxes  for  data  entry  */ 
vid_box (startrow+5, startcol+2+strlen( label [1] )+2,  23) ; 
vid_box (startrow+7, startcol+2+strlen (label [2] )+2,  7) ; 
vid_box(startrow+9, startcol+2+strlen (label (3) ) +15, 7) ; 
vid_box (startrow+ll, startcol+2+strlen (label (4 ) ) +3, 7) ; 
vid_box (startrow+13, startcol+2+strlen (label (5] ) +6, 7) ? 

/a****************************************************************/ 

/*  get  user  input  */ 

/aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaat.  ********************/ 

/*  get  hull_no  */ 

get_data (0, startrow+5, startcol+2+strlen (label [1] ) +2, hull_no, tow_data) ; 
for  (i”0;  i<23;  i++) 

write_char (startrow+5,  startcol+2+strlen (label [1] ) +2+i, '  ' , REV_VID) ; 
write_string( startrow+5, start col+2+strlen (label [1] ) +2, hull_no, REV_VID) ; 

/*  get  diaplacement  */ 

get_data (1, startrow+7, startcol+2+strlen (ladjel (2) ) +2,  hull_no,  tow_data) ; 
for  (i»0;  i<7;  i++) 

write_ci'.ar  (startrow+7,  startcol+2+strlen  (label  (2) )  +2+i, '  '  ,  REV_VID)  ; 
sprintf (string, "%6.0f ", tow_data(0] ) ; 

write_string (startrow+7, startcol+2+strlen (label (2) ) +2, string, REV_VID) ; 

/*  get  tow  speed  */ 

get_data (2, startrow+9, startcol+2+strlen (label (3) ) +15, hull_no, tow_data) ; 
for  (i»0;  i<7;  i++) 

write_char (startrow+9, startcol+2+strlen (label [3] ) +15+i, '  '  ,  REV_VID) ; 
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sprintf (string, "%6.1f",tow_data[l]) ; 

write_string(startrow+9, startcol+2+strlen (label [3 ] >  +15, string, REV_VID) ; 

/*  get  wind  speed  */ 

get_data (3,  startrow+11,  startcol+2+strlen (label (4 ) ) +3, hull_no, tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+11, startcol+2+strlen (label [4 ]) +3+i,  '  ' ,REV_VXD) ; 
sprintf (string, "%6. If", tow_data [2] ) ; 

write_string (startrow+11, startcol+2+strlen (label (  '] ) +3, string, REV_VID) ; 

/*  get  relative  wind  direction  */ 

get_data (4, startrow+13, startcol+2+strlen (label (5] ) +6, hull_no,  tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+13, startcol+2+3trlen ( label (5] ) +6+i, '  ' , REV_VID) ; 
sprintf (string, "%6. If",  tow_data [3] ) ; 

write_string( startrow+13,  startcol+2+strlen (label [ 5] )+6, string, REV_VID) ; 

/*  get  propeller  status  */ 

tow_data [4]  =  popup (menu, "LTR", 3, startrow+13, endcol-13, SINGLE,  REV_VID,  0) ; 
if  (tow_data(4]  ==  LOCKED) 

{ 

write_3tring(startrow+lS, startcol+2+strlen (label [6] ) +10, menu (0] ,  REV_VID) ; 

) 

else  if  (tow_data [4 ]  ==  TRAILING) 

{ 

write__string(startrow+15, startcol+2+strlen(label[6] )+10,menu[l] ,REV_VID) ; 

) 

else  if  (tow_data [4 ]  ==  REMOVED) 

( 

write_string (startrow+15, startcol+2+strlen(label(6] )+10,menu[2) ,REV_VID) ; 

} 

/*  erase  footer  */ 

start  =  (endcol-startcol-strlen (footer (0) ) ) /2  +  startcol; 
for  (i=0;  i<strlen (footer (0] ) ;  i++) 

write  char (startrow+17, start+i, '  ' ,  REV  VID)  ; 


/*****************************************************************/ 
/*  prompt  user  for  confirmation  of  data;  give  edit  option  */ 
/*** ****★*********************************************************/ 
start  *  startcol  +  3; 

write_string(startrow+17,  start,  footer(l)  ,REV_VID) ; 
vid_box (startrow+17, start +strlen (footer (1) ) , 4) ; 

get_data (S,  startrow+17,  start+strlen (footer [ 1) ) ,  hull_nc, tow_data) ; 

/*  test  if  data  correct  */ 

if  (  choice (0] !»' y'  &&  choice [0] !«' Y'  &S  choice (0) ! “NULL  ) 

/*  erase  previous  message  */ 

start  -  startcol  +3; 

for  (i"0;  Kstrlen (footer (1) ) +4;  i++) 

write_char (endrow-3, start+i, '  '  , REV  VID); 
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/*  write  quit  message  */ 

start=(endcd-startcol-strlen(footer{4] ) ) /2  +  started; 
write_string(endrow, start, footer [4] ,  REV_VID) ; 

/*  write  first  line  of  edit  "menu"  */ 

start= (endcol-startcol-strlen (footer {2] )) /2  +  started; 
write_string(endrow-3, start, footer [2] ,REV_VID) ; 

/*  write  function  key  indicators  in  NORM_VID  */ 
for(i=0;  i<2;  i++) 

{ 

write_char (endrow-3,  start+i,  footer{2] [i] ,NORM_VID) ; 
write_char (endrow-3,  start+8+i,  footer [2] [i+8] ,  NORM_VXD) ; 
write_char (endrow-3, start+16+i,  footer (2] (i+16) ,  NOEM_VID) ; 
write_char (endrow-3,  start+23+i,  footer (2) (i+23]  ,NORM_VID) ; 

} 

/*  write  second  line  of  edit  "menu"  */ 

startl= (endcol-startcol-strlen (footer (3] )) /2  +  started; 
write_string(endrow-2,  startl,  footer (3] ,  REV_VID) ; 

/*  write  function  key  indicators  in  NORM_VID  */ 
for(i=G;  i<2;  i++) 

{ 

write_char (endrow-2,  startl+i,  footer (3] [i] , NORM_VID) ; 
write_char (endrow-2, startl+12+i, footer[3)  [i+12]  ,NORM_VID) ; 

} 

/*****************************************************************/ 

/*  edit  data  ■  / 

/************************************ ************************ *****/ 

/*  move  cursor  to  FI  highlight  */ 
cursor_on ( ) ; 

goto_xy (startrow+17,  start) ; 

/*  get  user's  choice  */ 
while  (1) 

{ 

key»get_special () ; 

/***************/ 
if  (key->«Fl)  /*  hull  number  */ 

{  /***************/ 

vid_box(startrow+5,  startcd+2+strlen  (label  [1] )  +2,  23)  ; 

g«t_data(0, startrow+5, startcol+2+strien (laibel (1) ) +2, hull_no, tow_data) ; 
for  (i«0;  i<23;  i++) 

write_char (startrow+5, startcol+2+strlen (label (1) ) +2+i, '  ' , REV_V1D) ; 
write_string( startrow+5,  startcd+2+strlen (label (1) ) +2, hull_no, REV_VID) 
cursor_on () ; 

goto_xy (endrow-3,  start) ; 

)  /****************/ 

else  i.f  (key»»F2)  /*  displacement  */ 

{  /*****»*»****»»**/ 

vid_box  (startrow+7,  startcd+2+strlen  (label  (2] )  +2,  7)  ; 

get_data (1, startrow+7, startcol+2+strlen (label (2] ) +2, hull_no, tow_data) ; 
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for  (i=0;  i<7;  i++) 

write_char (startrow+7, startcol+2+strlen (label [2] ) +2+i,  '  '  , REV_VID)  ; 
sprintf (string, ”%6.0f", tow_data [0] ) ; 

write_scring (startrow+7, startcol+2+strlen (label (2] ) +2,  string,  REV_VID) ; 
cursor_on () ; 

goto_xy (endrow-3,  start+8)  ; 

}  /*******★*******/ 

else  if  (key==F3)  /*  tow  speed  */ 

{  /******★*****  tt* 

vid_box (startrow+9, startcol+2+strlen () abel [3] ) +15, 7) ; 

get_data (2,  startrow+9, startcol+2+strlen (label (3] ) +15, hull_no, tow_data) ; 
for  (i=0;  i<7;  i++) 

write__char (startrow+9, startcol+2+strlen (label [3] ) +15+i, '  '  ,REV_VID) ; 
sprintf (string, "%6. If ",  tow_data (1) )  ; 

write_string (startrow+9, startcol+2+strlen (label (3] ) +15, string, REV_VID) ; 
cursor_on ( ) ; 

goto__xy  (endrow-3 ,  start+16) ; 

»  /*****•**********/ 

else  if  <key==F4)  /*  wind  speed  */ 

(  /***************/ 

vid_box(startrow+ll, startool+2+strlen (label (4  J ) +3, 7) ; 

get_data (3,  startrow+11, startcol+2+strlen (label [4] ) +3, hull_no, tow_data) ; 
for  (i=0;  i<7;  i++) 

v;rite_char (3tartrow+ll, startcol+2+strlen (label [4] ) +3+i, '  ' ,REV_VID) ; 
sprintf (string, ”%6.1f", tow_data(2] ) ; 

write_string(startrow+ll, startcol+2+strlen (label [4 ] )+3,  string, REV_VID) ; 
cursor_on () ; 

goto_xy (endrow-3,  start+23) ; 

}  /A***************/ 

else  if  (key==F5)  /*  rel  wind  dir  */ 

{  /****************/ 

vid_box (startrow+13, startcol+2+strlen (label [5] ) +6, 7) ; 

get_data (4,  startrow+13,  startcol+2+strlen (label [5] ) +6,  hull_nc,  tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+13, startcol+2+strlen (label (5] ) +6+i, '  '  ,  REV_VID) ; 
sprintf (string, "%6. If",  tow_data (3) ) ; 

write_string (startrow+13, startcol+2+strlen (label (5) ) +6, string, REV_VID) ; 
cursor_on ( ) ; 

goto_xy (endrow-2,  start!)  ; 

}  /***************/ 

else  if  (key-»F6)  /*  prop  status  */ 

{  /**************v/ 

cursor_off () ; 

tow_data (4)  =  popup (menu, "LTR", 3, startrow+13, endcol-13, SINGLE, REV_VID, 0) ; 
if  (tow_data ( 4 ]  =*«  LOCKED) 

( 

for  (i=0;  i<=strlen (menu (2] ) ;  i++) 

write_char (startrow+15, startcol+2+strlen (label (6) ) +10+i, '  ' , REV_VID) ; 
write_string (startrow+15, startool+2+strlen (label [6] ) +10, menu (0) , REV_VID) ; 

) 

else  if  (tow_data[4]  =>=  TRAILING) 

{ 

for  (i*0;  i<=strlen (menu(2] ) ;  i++) 

write  char (startrow+15, startcol+2+strlen (label ( 6] ) +10+i, '  ' , REV  VID) ; 
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write_string(startrow+15, startcd+2+strlen (label {6) ) +10, menu (1] , REV_VID) 

} 

else  if  (tow_data[4)  ==  REMOVED) 

{ 

for  (i=0;  i<=strlen (menu(2) ) ;  i++) 

write_char (startrow+15,  startcol+2+strlen(label(6] )+10+i, '  ' ,REV_VID) ; 
write_string(startrow+15,  startcol+2+strlen (label [ 6] ) +10, menu [2] , REV_VID) 

} 

cursor_on ( ) ; 

goto_xy (endrow-2, startl+12) ; 

}  J  *  rt  ★***★****★★★  •k  I 

else  if  (key==INSERT)  /*  quit  edit  */ 

{  /***************/ 

/*  erase  menu  */ 

for  (i=0;  i<strlen (footer (2] ) ;  i++) 

write_char (startrow+17, start+i, '  ' , REV_VID) ; 
for  (i=0;  i<strlen (footer (3 ]) ;  i++) 

write_char (startrow+18 , startl+i, '  '  , REV_VID) ; 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen  (footer  (4]  )) /'2  +  started; 
for  (i”0;  i<strlen (footer (4 ]) ;  i++) 

write_char (endrow, start+i, 205, REV_VID) ; 
break; 

) 

) 

cursor_of f () ; 

)  /************************/ 

else  /*  editing  not  required  */ 

(  /********************x***/ 

/*  erase  previous  message  */ 

3tart  =  started  +  3; 

for  (i=0;  i<strlen (footer (1] ) +4;  i++) 

write_char (endrow-3, start+i, '  ' , REV_VID) ; 

) 

return  (0); 

} 

/a*************************************************************************** 

This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  get_tow_data ( ) .  Uses  sereen_getstring()  for  screen  I/O.  Some  data 
checking  is  performed  for  each  data  type. 

void  get_data (i, row, col, hull_no, data) 

int  i; 

int  row; 

int  col; 

char  *hull_no; 

float  *data; 

{ 


int  nbr; 

/* 

required  arg  for  stofa 

*/ 

int  status; 

/* 

takes  return  value  for 

stofa  */ 

char  string (24); 

/* 

input  string 

*/ 

char  textl(39],  text2(39); 

/* 

error  message  text 

*/ 
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int  j,  k; 

/* 

counters 

*/ 

int  length; 

cursor_on ()  ; 

/* 

turn  on  cursor 

*/ 

goto_xy (row, col) ; 

/* 

move  cursor  to  start  of  box 

*/ 

/*  get  user  input  */ 

screen_getstrg(i, row, col, string, NORM_VID,  input) ; 

if  (i==0) 

{ 

/*  convert  input  string  to  upper  case;  output  to  hull_no  */ 
slctouc (string, hull_no) ; 

/*  ensure  hull  number  is  in  proper  format  */ 

/*  —  first  copy  hull_no  */ 
strcpy (string, hull_no) ; 

if  (hull_no(0]=='T' ) 

{ 

if  (hull_no (1]=='  ') 

( 

hull_no(l]  = 

strcpy (string, hull_no)  ; 

} 

else  if  (hull_no(l]  != 

{ 

string [1]  =  ' ; 
length  ”  strlen (hull_no) ; 
for  (k=2;  k<=length;  k++) 
strir.gtk]  =  hull_no  (k-1] ; 
string  [k]  =■  NOLL; 
strcpy (hull_no, string) ; 

) 

} 

length^strlen (hull_no) ; 
for  (j=0;  j<length;  j++) 

( 

if  (hull_no [ j]>“' 0'  &S  hull_no( j]<»' 9' ) 

( 

if  (hull_no ( j —1 )  —  '-') 

( 

hull_no[j-l]  »  '  '; 
break; 

) 

else  if  (hull_no( j-1)  !-  '  ') 

{ 

string! j)  -  ' 

for  (k-j+1;  k<=»strlen  (hull_no) ;  k++) 
string (k]  =  hull_no (k-1] ; 
string (k]  =  NOLL; 
slctouc (string, hull_no) ; 
break; 

} 
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} 


else 

( 

break; 

} 


} 


} 

else  if  (i>0  &&  i<4) 

{ 

/*  check  for  valid  numeric  input  */ 
for  (k=0;  k<strlen (string) ;  k++) 

{ 

if  (  string (k] )  ; 

else  if  (string (k] <' O'  ||  string(k]>' 9' ) 

< 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR,  textl, "  ") ; 

vid_box (row, col , 7 ) ; 

get_data (i, row,  col, hull_no, data) ; 

return  ; 

} 

} 

/*  if  input  valid  numbers  only,  convert  string  to  float  */ 
status  =  stofa (string, &data ( i— X ] , &nbr, 1) ; 

} 

else  if  (i==4) 

( 

/*  check  for  valid  numeric  input  */ 
for  (k=0;  k<strlen (string) ;  k++) 

( 

if  (  string (k]=>*'  .'  )  ; 

else  if  (string [k]==' -' )  ; 

else  if  (string(k]<'0'  II  string(k]>' 9' ) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 

display _error (ERROR,  textl,  "  ") ; 

vid_box (row, col, 7) ; 

get_data  (i,  row,  col,  hull_no,  diita)  ; 

return  ; 

} 

} 

/*  if  input  valid  numbers  only,  convert  string  to  float  */ 
status  -  stofa(string, &data(i-l] , Snbr, 1) ; 

} 

else  /*  i  =*»  5  */ 

( 

strcpy (choice,  string)  ; 

) 

/*******************************************************/ 

/*  check  data  for  consistency  */ 

/*******************************************************/ 
/***************/ 
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if  (i=*0)  /*  hull  number  */ 

{  /***************/ 

if  (hull_no(0]<' A'  ||  ' Z' <hull_no(0)  &&  hull_no [0] <' a'  ||  hull_no (0) >' z' ) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " ) ; 
vid_box(row,col, 23) ; 
get_data(i, row, col, hull_no, data) ; 
return  ; 

) 

}  /****************/ 

if  (i==l)  /*  displacement  */ 

{  /****************/ 

if  (data ( i- 1 ] <=0 . 0 ) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR,  textl ,  "  " )  ; 

vid_box (row, col ,  7 ) ; 

get_data (i,  row,  col,  hull_no,  data) ; 

return  ; 

) 

else  if  (  data (i-1] <350.0  ||  data(i-l}>91000.0  &&  data(i-l)<=100000.0  ) 

{ 

sprintf (textl, "Displacement  is  outside  range"); 
sprintf (text2, "of  data  in  Table  G-2"); 
display_error (WARN, textl,  text2) ; 

} 

else  if  (  data (i-1] >100000.0  ) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR,  textl,  "  ") ; 

vid_box (row,  col,  7)  ; 

get_data (i, row, col,  hull_no, data) ; 

return  ; 

} 

}  /****************/ 

if  (i=»=2)  /*  towing  speed  */ 

{  /****************/ 

if  (data ( i-1) <=0.0) 

( 

sprintf (textl , "Invalid  entry;  try  again"); 
display_error (ERROR,  textl , "  " ) ; 
vid_box(row, col, 7) ; 
get_data (i, row, col, hull_no, data) ; 
return  ; 

} 

else  if  (data[i-l]>10.0  &&  data(i-l]<=12.0) 

{ 

sprintf (textl, "Planned  tow  speed  is  higher  than"); 
sprintf (text2, "normally  recommended") ; 
display_error (WARN, textl,  text2) ; 

} 

else  if  (data (i-1) >12 .0) 

{ 
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sprintf (textl, "Outside  range  of  Fig.  G-l"); 

sprintf (text2, "=>please  enter  new  tow  speed<=") ; 

diaplay_error (ERROR,  textl , text2 ) ; 

vid_box(row,  col,  7)  ; 

get_data (i, row, col,  hull_no,  data) ; 

return  ; 

) 

)  /**************/ 

if  (i==3)  /*  wind  speed  */ 

{  /**************/ 

if  (data(i-l)<0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl,  "  ") ; 
vid_box (row, col, 7) ; 
get_data(i, row, col, hull_no, data) ; 
return  ; 

) 

else  if  (data(i-l]>48.0) 

{ 

sprintf (textl, "Outside  range  of  Fig.  G-2"); 

sprintf (text2, "=>please  enter  new  wind  speed<="); 

display_error (ERROR,  textl,  text2) ; 

vid_box (row, col, 7 ) ; 

get_data (i,  row,  col,  hull_no, data) ; 

return  ; 

) 

}  /******************/ 

if  (i==4)  /*  wind  direction  */ 

{  /******************/ 

if  (data [i-1] <0) 

{ 

sprintf (textl, "Use  only  positive  angles"); 
display_error (WARN,  textl,  "  ")  ; 
data (i-1]  =  -data (i-1]; 

} 

else  if  (data (i-1) >180 . 0  &&  data [i-1] <360 .0) 

( 

sprintf (textl, "Use  angles  between  0  and  180"); 
display_error (WARN, textl, "  ") ; 
data[i-l]  »  360.0  -  data[i-l]; 

} 

else  if  (data[i-l]>70.0  &&  data(i-l]<110.0) 

{ 

sprintf (textl, "No  extreme  tension  data  for  beam  seas") 

sprintf  (text2,  "»■»>  use  angles  <  70  or  >  110  <=="); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 7) ; 

get_data (i,  row,  col,  hull_no, data) ; 

return  ; 

) 

else  if  (data (i-1] >3 60 . 0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
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display_error (ERROR,  text! ,  "  " ) ; 
vid_box (row, col, 7) ; 
get_data (i, row, col, hull_no, data) ; 
return  ; 

> 

} 

cursor_o£f ()  ; 
goto_xy (0,0); 

) 

/ft*************************************************************** 

This  function  retrieves  tow  data  from  a  user  specified  file. 
**************************★★*************************************/ 
get_ship_f ile  (startrow,  started,  endrow,  ended,  hull_no,  class, 
tow_data,  ship_data, flag) 
int  startrow,  started; 
int  endrow,  ended; 
char  *hull_no; 
char  *class; 
float  *tow  data; 
float  *ship_data; 
int  *flag; 

{ 

FILE  *in; 

char  fname (13]; 

char  inline [81]; 

char  textl (39] , text2 (39] ; 

int  i, j, status, nbr; 

float  array (2]; 

int  start; 

start  =»  (endcol-startcd-strlen  (labell  (1] ) ) /2  +  started; 
write_string(startrow+8, start, labell ( 1] , REV_VID) ; 
for  (i”0;  i<2;  i++)  /*  write  prompt  */ 

( 

start  =  startcd+3; 

write_string(startrow+10+i,  start, labell [i+2] ,  REV_VID) ; 

) 

vid_box (startrow+11, start tstrlen (labell (3) ) , 9) ; 
sprintf (textl, "Type  ' Q'  to  quit"); 

start  »  (endcol-startcd-strlen  (textl) ) /2  +  startcol; 
write_string(endrow-3, start, textl, REV_VID) ; 

get_fname  (6, 1,  startrow+11,  startcd+3+strlen  (labell  [3] ) ,  fname) ; 

/*  check  for  quit  option  */ 
if  (fname (0]="' Q' ) 

( 

cursor_of f ()  ; 
goto_xy (0,0) ; 
return  (-1) ; 

) 

in-fopen (fname, "r") ; 
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if  (in==NULL) 

{ 

sprintf (textl,  "Can' t  open  file  %s",fname); 
display_error (ERROR,  textl ,  "  " ) ; 

clear (startrow+8, startcol+l, endrow-3, endcol-1, REV_VID) ; 
get_ship_file (startrow, started, endrow, endcol, hull_no, 
class, tow_data,  ship_data,  flag) ; 

return  (0) ; 

) 

else 

{ 

/*  read  data  from  file  */ 
fgets (inline, 81, in) ; 
strstrip (inline) ; 

/*  test  for  valid  tow  file  */ 

if  (! (strnemp (inline, " !  Tow  data  file", 15))) 

{ 

fgets (inline, 81, in) ; 
fget3 (inline, 81, in) ; 
strstrip (inline) ; 

/*  test  if  ship  file  */ 
if  (strnemp (inline, "SHIP", 4) ) 

( 

sprintf (textl, "%s  is  not  a  ship  data  file !", f name) ; 
display_error (ERROR, textl, "  ") ; 

clear (startrow+8, startcol+l, endrow-3, endcol-1, REV_VID) ; 
get_ship_file  (startrow,  started,  endrow,  ended,  hull_no, 
class,  tow_data,  ship_data, flag) ; 
return  (0); 

} 

/*  get  hull  number  */ 
fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
strstrip (inline) ; 
strnepy (hull_no, inline,  24) ; 
strstrip (hull_no) ; 

/*  get  class  */ 
fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
strstrip (inline) ; 
strnepy (class,  inline,  24) ; 
strstrip (class)  ; 

/*  read  remaining  tow  data  */ 
for  (i»0;  i<5;  i++) 

( 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
status-stofa (inline, array, &nbr, 1) ; 
tow_data  ( i)  «*array  (0 ] ; 
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} 


/*  read  ship  data  */ 
for  (i*=0;  i<6;  i++) 

( 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
status=stofa (inline, array, &nbr, 1) ; 
ship_data ( i ] “ar r ay ( 0 )  ; 

) 

f close (in) ; 

) 

else 

sprintf (textl, "%s  is  not  a  tow  data  file !",  fname) ; 
display_error (ERROR, textl,  "  ") ; 

clear (startrow+8, startcol+1, endrow-3, endcol-1, REV_VXD) ; 
get_ship_file (startrow, startcol,  endrow,  endcol,hull_no, 
class,  tow_data, ship_data, flag) ; 
return  (0); 

} 

) 

) 

/♦a************************************************************** 
This  function  writes  the  tow  data  for  self-propelled  ships  to 
a  user  specified  file. 

A****************************************************************/ 

void  3ave_ship_file (startrow,  startcol,  endrow,  ended, hull_no, 
class, tow_data, ship_data) 
int  startrow, startcol, endrow, endcol; 
char  *hull_no; 
char  *class; 
float  *tow_data; 
float  *ship_data; 

{ 

FILE  *out; 
char  fname ( 13 ] ; 
char  string(25); 
char  textl (39); 
int  start; 

/*  prompt  for  file  name  */ 
start  -  startcol  +3; 

write_string(endrow-2, start, footer ( 6] , REV_VID) ; 
vid_box (endrow-2,  start+strlen (footer (6) ) +3, 9) ; 

get_fname (6, 1, endrow-2,  start+strlen (footer [6) ) +3, fname) ; 
out=f open (fname, "w") ; 

if  (out --NOLL) 

{ 

sprintf (textl, "Can' t  open  file  %s", fname) ; 
diaplay_error (ERROR, textl, "  ") ; 
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save_ship_f ile (startrow, started,  endrow, endcol, hull_no, class, 
tow_data, ship_data) ; 

return; 

} 

else 

{ 

/*  write  tow  data  to  file  */ 
fprintf (out, " !  Tow  data  file\n"); 
fprintf (out, " !  Tow  type:\n"); 
fprintf (out, "SHIP\n") ; 

fprintf (out, " !  Hull  number s\n"); 
fprintf (out, "%s\n", hull_no) ; 

fprintf (out, " !  Ship  class:\n"); 
fprintf (out, "%s\n",  class)  ; 

fprintf (out, " !  Ship  displacement:\n") ; 
sprintf (string, "%- . If V  ', tow_data (0) ) ; 
fprintf (out, "%s", string) ; 

fprintf  (out,  "  !  Tow  speed  (kts):\n"); 
sprintf (string, lf\n",  tow_data (13); 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Wind  speed  (kts):\n"); 
sprintf  (string,  "%-.2f\n'‘,  tow_data  (2) )  ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Relative  wind  dir:\n"); 
sprintf (string, 2f\n", tow_data (3) )  ; 
fprintf (out, "%s", string) ; 

fprintf  (out, "  !  Propellor  status :\n"); 
sprintf (string, Of \n", tow_data [4  J ) ; 
fprintf (out, "%s", string) ; 

/*  write  ship  data  to  file  */ 
fprintf (out, " !  Tabulated  displacement ; \n" ) ; 
sprintf (string, "%-.0f\n",  ship_data(0J ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Frontal  windage  area:\n"); 
sprintf  (string,  "%-.0f\n".-  ship_data(lj ) ; 
fprintf (out, "%s", string) ; 

fprintf  (out, "  !  Wind  coefficient :\n") ; 
sprintf (string, 2f\n", ship_data (2) ) ; 
fprintf (out, "%s", string) ; 

fprintf  (out, "  !  Propeller  area:\n"); 
sprintf (string, "%-.2f\n", ship_data(3) ) ; 
fprintf (out, "%s", string) ; 
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fprintf (out, " !  Hull  resistance  curve  number :\n"); 
sprintf (string, "%-.Of\n",  ship_data(4] ) ; 
fprintf (out, "%s",  string) ; 

fprintf  (out,  "  !  Wave  resistance  curve  numberin'1); 
sprintf (string, "%-.Of\n",  ship_data(5) ) ; 
fprintf (out, "%s", string) ; 

} 

f close (out) ; 
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/ft*************************************************************************** 

File:  tab.c 

Author:  Todd  J.  Peltzer 
Last  Update  :  30  April  1989 

This  file  contains  functions  which  support  the  display  of  Table  G-2 
of  the  USN  Towing  Manual.  The  user  can  scroll  through  the  choices 
in  the  table  to  select  a  ship.  Once  a  selection  is  made,  the  user  is 
prompted  to  confirm  the  choice . 


Functions : 

display_tab_g2 ( ) 
up_line ( ) 
down_line ( ) 
up__page  () 
down_page ( ) 
goto_home ( ) 
goto_end ( ) 
read_table ( ) 
read_data ( ) 
match_ship ( ) 
match_type ( ) 
match_nbr ( ) 
read_class () 

************★****************************************************************/ 

♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h"  /*  Define  aux  byte  values  for  IBM  keyboard  */ 

♦include  "video. h" 


void  up_line ( ) , down_line ( ) , up_page ( )  ,  down_page ( ) , goto_home ( ) , goto_end ( ) ; 
void  read_table () ,  read_data(),  read_class ( ) ; 
char  far  *vid  mem; 


PROP", 

AREA" 


extern  char  *hull_no; 
extern  char  ‘class; 

static  char  ‘footer  [2]  =* 

{ 

"(Items  marked  with  's'  are  best  estimate.)", 

"Use  arrow  keys,  (pgup] ,  (pgdn] ,  (home),  (end)  to  view  choices." 

); 

union  inkey 

( 

char  ch(2); 


static  char  *page_header (2) 

( 


CLASS 


DESCRIPTION 


DISP 


WINDAGE 

AREA 


) ; 
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int  i; 

}  c; 

/**********************************************************************tt***** 

Display  the  table  .  .  . 

a****************************************************************************/ 

display_tab_g2 (table,  data,  hull_no,  class) 

char  **table; 

float  Mata; 

char  *hull_no; 

char  Mlass; 

{ 

FILE  *in; 

int  i,  j,  len,  start,  status; 

int  arrow_choice=0; 

int  n=>141; 

int  line_no=0; 

int  match,  type; 

int  num; 

char  string(81],  ch; 

set_video ( ) ; 
els  ( ) ; 

cursor_off () ;  /*  turn  off  blinking  cursor  */ 

/*  print  header  lines  at  top  of  screen  */ 
for  (i=0;  i<2;  i++) 

write_string(i, 0,page_header(i] ,NORM_VID) ; 

/*  draw  border  */ 
for  (j“0;  j<80;  j++) 

write_char (2, j, 205, NORM_VID) ; 

/*  write  footer  */ 
for  (i»0;  i<2;  i++) 

{ 

len  ■  strlen (footer (i) ) ; 
start  =  (80  -  len)/2; 

write_string (23+i, start, footer[i] ,N0RM_VID) ; 

) 

/ft******************************************************/ 

/*  find  match  with  hull  number  of  ship  entered  by  user  */ 
/♦♦a****************************************************/ 

match  *■  match_ship (hull_no,  table, Stype) ; 

if  (match<0  &&  type>«0)  /*  hull  type  matches;  hull  no.  does  not  *1 
match  “  type; 

if  (match>-0) 

( 

/*  set  current  choice  to  "match"  */ 

arrow_choice«match; 

num-n-1 -arrow  choice; 
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if  (arrow_choice==n-l) 

goto_end (£arrow_choice, &line_no, n, table) ; 

else  if  (num  <  20) 

{ 

/*  write  first  screen  */ 
for  (i=0;  i<=num;  i++) 

write_string (i+3,  0,  table (n-l-num+i) ,  N0RM_VID); 

/*  highlight  match  */ 

write_string (3,  0,  table ( arrow_choice ) ,  REV_VID); 

/*  ensure  rest  of  screen  is  blank  */ 
clear  (num+1+3, 0, 22, 79) ; 

) 

else 

{ 

/*  write  first  screen  */ 
for  (i=0;  i<20;  i++) 

write_string (i+3,  0,  table (arrow_choice+i) , N0RM_VID) ; 

/*  highlight  first  entry  '/ 

write_string(3, 0, table (arrow_choice) , REV_VID) ; 

) 

) 

else 

{ 

/*  write  first  screen  */ 
for  (i=0;  i<20;  i++) 

write_string (i+3, 0, table (i] ,N0RM_VID) ; 

/*  highlight  first  entry  */ 
write_string(3, 0, table (0] , REV_VID) ; 

) 

/**************  a****************************************/ 

/*  get  user's  response  */ 

/ft******************************************************/ 

status  »  get_tab_g2_resp  (6arrow_choice, &line_no,  n,  table) ; 

if ((status)  /*  status»«0  is  normal  return  from  get_tab_g2_resp  */ 

{ 

/*  read  data  from  appropriate  file  */ 
in  -  fopen("table.dat",  "r") ; 
read_data (in, arrow_choice, data,  6) ; 
read_class (arrow_choice, table,  class, 23) ; 

) 

/*  neod  else  statement  to  handle  situation  if  escape  key  is  pressed  */ 


) 
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This  function  allows  the  user  to  scroll  through  choices  and  make 
selections.  Returns  0  if  selection  is  made;  returns  -1  if  escape  key 
is  pressed. 

*******************************★.'  *★★**★★******★★★***★★*★★*★*★*★*★*★***  +  ******  j 

get_tab_g2_resp (arrow_choice, line_no,  n, table) 

int  *arrow_choice;  /*  current  table  entry  */ 

int  *line_no;  /*  current  screen  line  number  */ 

int  n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  current  ship  table  */ 

{ 

for  (;;) 

{ 

while ( Jbioskey (1) )  ;  /*  wait  for  key  stroke  */ 
c.i  =  bioskey(O);  /*  read  the  key  */ 

if(c.ch[0])  /*  is  normal  key  */ 

{ 

switch (c.ch(0] ) 

{ 

case  ' \r' : 

return  0; 
case  ESC  : 

return  -1;  /*  cancel  */ 

default  : 
beepl () ; 
break ; 

}  /*  end  "switch"  */ 

}  /*  end  "if"  */ 

else 

{  /*  is  special  key  */ 

switch (c.ch (11) 

{ 

case  UP_AKROW  : 

up_iine (arrow_choice, line_no,  n, table) ; 
break; 

case  DOKN_ARROW  : 

down_line (arrow_choice, line_no, n,  table) ; 
break; 

case  PAGS_UP  : 

up_page (arrow_choice,  15  ie_no, n, table) ; 
break; 

case  PAGE_D0WN  : 

down_pago (arrow_choice, line_no, n,  table) ; 
break; 
case  HOME  : 

goto_home (arrow_choice, line_no, n, table) ; 
break; 
case  END  ; 

goto_end(arrow_choice, line_no, n, table) ; 
break; 
default  : 
beepl  ()  ; 
break; 

}  /*  end  "switch"  */ 
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)  /*  end  "else"  */ 

} 

) 

/*********************★****★★*************************★*******★************** 
This  function  moves  the  highlighted  choice  up  one  line. 

—  if  beginning  of  table,  does  nothing; 

—  if  top  of  screen  but  not  beginning  of  table,  scrolls  screen; 

—  otherwise,  just  moves  up  one  line. 

★★A**************************************************************************/ 

void  up_line (arrow_choice, line_no, n, table) 

int  *arrow_choice;  /*  current  table  entry  */ 

int  *line_no;  /*  current  screen  line  number  */ 

int  n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  current  ship  table  */ 

{ 

int  i,num; 

if  (*arrow_choice  ==  0)  ;  /*  first  table  entry  */ 

else  if  (*line_no  ==  0)  /*  top  of  window,  not  first  entry  */ 

{ 

/*  highlight  previous  entry  */ 

write_string(3,  0,  table [*arrow_choice-l] ,  REV_VID) ; 

/*  is  this  the  last  screen?  */ 
num=n-*arrow_choice; 
if  (num<20) 

{ 

for  (i=0;  i<num;  i++) 

write_string(i+4,  0,  table ( *arrow_choice+i) ,  N0RM_VID) ; 

} 

else 

{ 

for  (i=0;  i<19;  i++) 

write_3tring(i+4,  0,  table [ *arrow_choice+i) ,  N0RM_VID) ; 

} 

(*arrow_choice) — ;  /*  line_no  stays  the  same  */ 

} 

else 

{ 

/*  highlight  previous  entry  */ 

write_string(*line_no-l+3,  0,  table (*arrow_choice-l) ,  REV_VID) ; 

/*  restore  last  highlighted  entry  to  normal  video  */ 
write_string(*line_no+3,  0,  table (*arrow_choice) ,  NORM_VID) ; 

/*  decrement  table  entry  #  and  screen  line  #  */ 

(*arrow_choice) — ; 

(*line_no)  — ; 

) 

) 
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/*****************★*★********************  *******************************.****■* 
This  function  moves  the  highlighted  choice  down  one  line . 

—  if  end  of  table,  does  nothing; 

—  if  bottom  of  screen  but  not  end  of  table,  scrolls  screen  down  one  line 

—  otherwise,  just  moves  down  one  line. 


void  down_line (arrow_choice 

int  *arrow_choice; 

int  *line_no; 

int  n; 

char  **table; 


line_no, n, table) 

/*  current  table  entry 
/*  current  screen  line  number 
/*  number  of  entries  in  table 
/*  ship  table 


*/ 

*/ 

*/ 

*/ 


{ 


int  i; 


if  (*arrow_choice  -=  n-1)  ;  /*  last  table  entry;  do  nothing  */ 

else  if  (*line_no  ==  19)  /*  end  of  window,  not  last  entry  */ 

{ 

/*  display  table  */ 
for  (i=0;  i<19;  i++) 

write_string (i+3,  0,  table [*arrow_choice-18+i] ,  N0RM_VID) ; 


/*  highlight  next  entry  */ 

write_string(22,  0,  table [*arrow_choice+l] ,  REV_VID); 
(*arrow_choice) ++;  /*  line_no  stays  the  same  */ 

} 


else  /*  move  highlight  down  one  line  */ 

{ 

/*  highlight  next  entry  */ 

write_string(*line_no+l+3,  0,  table [*arrow_choice+l] ,  REV_VID); 

/*  restore  last  highlighted  entry  to  normal  video  */ 
writs_string(*line_no+3,  0,  table [*arrow_choice] ,  N0RM_VID) ; 

(*arrow_choice) ++; 

(*line_no) ++; 

} 

} 


/******★**★«**/.  dr***************:********************************************-** 

This  function  displays  previous  page  of  table. 

—  if  beginning  of  table,  does  nothing; 

—  if  first  page,  moves  highlight  to  first  line; 

—  otherwise,  highlight  stays  on  same  screen  line. 


void  up_page (arrow_choice, line__no,  n,  table ) 

int  *arrow_choice ;  /*  current  table  entry 

int  *line_nc/  /*  current  screen  line  number 

int  n;  /*  number  of  entries  in  table 

char  **table;  /*  ship  table 


V 

*/ 

*/ 

*/ 


{ 


int  i,  last; 
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if  (*arrow_choice  ==  0)  ;  /*  fir3t  table  entry  */ 

/*  if  on  first  page,  but  not  first  entry,  highlight  first  entry  */ 
else  if  (*arrow_choice  <  20) 

{ 

for  (i=0;  i<20;  i++) 

write_string(i+3,  0,  table{i],  N0RM_VID) ; 

/*  highlight  first  entry  */ 
write_string(3,  0,  table(0],  REV_VID) ; 

*arrow_choice  =0;  /*  reset  */ 

*line  no  =  0; 


/*  not  on  first  page;  display  previous  page  */ 
else 
{ 

/*  compute  index  of  top  of  previous  page  */ 
last  =  *arrow_choice  -  *line_no  -  20; 

/*  display  previous  page  */ 

if  (last<=0)  /*  jumping  20  entries  would  go  to  or  past  top  of  table  */ 

{ 

for  (i=0;  i<20;  i++) 

write_string(i+3,  0,  table (i],  N0RM_VID); 
write_string(*line_no+last+3,  0,  table [*arrow_choice-20] , REV_VID) ; 
*line_no=0;  /*  reset  line_no  */ 

} 

else 

{ 

for  (i=0;  i<20;  i++) 

write_string(i+3,  0,  table {last+i) ,  N0RM_VID) ; 

/*  highlight  choice;  3ame  relative  position  on  screen  */ 
write_string(*line_no+3,  0,  table [*arrow_choice-20] ,  REV_VID) ; 

) 

*arrow_choice  -=  20;  /*  line_no  stays  the  same  */ 

} 

} 


This  function  displays  next  page  of  table. 

—  if  end  of  table,  does  nothing; 

—  if  last  page,  moves  highlight  to  last  line; 

—  otherwise,  highlight  stays  on  3ame  screen  line. 


void  down_page (arrow_choice, line_no,  n,  table) 
ir.t  *arrow_choice;  /*  current  table  entry  */ 

int  *line_no;  /*  current  screen  line  number  */ 

int  n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  ship  table  */ 


l 

rnt  i,  num,  next; 
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num=n-l-*arrow_choice;  /*  #  lines  to  final  entry  from  current  */ 

if  (*arrow_choice  ==  n-1)  ;  /*  final  table  entry  */ 

/*  if  on  last  page,  but  not  final  entry,  highlight  last  entry  */ 
else  if  (num  <  20) 

{ 

for  (i=0;  i<num;  i++) 

write_string(i+3,  0,  table (n-l-num+i] ,  N0RM_VID) ; 

/*  highlight  final  table  entry  */ 
write_string (num+3,  0,  table[n-l],  REV_VID) ; 

*arrow_choice  =  n-1; 

*line_no  =  num; 

clear (num+1+3, 0, 22, 79) ;  /*  ensure  rest  of  screen  is  blank  */ 

) 

else  /*  not  currently  on  final  page  */ 

{ 

/*  compute  index  of  top  of  next  page  */ 
next  =  *arrow_choice  -  *line_no  +  20; 

/*  display  next  page  */ 

if  (n-next<20)  /*  less  than  20  lines  on  final  page  */ 

{ 

/*  ensure  jumping  20  entries  won't  put  highlight  past  final  entry  */ 
if  (next  +  *line_no  <  n)  /*  it  will  go  past  */ 

{ 

for  (i=0;  i  <  (n-next);  i++) 

write_string(i+3,  0,  table {next+i) ,  N0RM_VID) ; 

/*  highlight  choice  */ 

write_string(*line_no+3, 0, table [ *arrow_choice+20] ,REV_VID) ; 
*arrow_choice  +=  20;  /*  line_no  stays  the  same  */ 

clear (n-next+3, 0, 22, 79) ;  /*  ensure  rest  of  screen  is  blank  */ 

) 

else  /*  it  won't  go  past  */ 

{ 

for  (i“0;  i  <  (n-next);  i++) 

write_string(i+3,  0,  table (next+i] ,  N0RM_VID) ; 

/*  highlight  choice  */ 

write_string(3,  0,  table(next),  REV_VID) ; 

*arrow_choice  +=  20;  /*  line_no  stays  the  same  */ 

clear (n-next+3, 0, 22, 79) ;  /*  ensure  rest  of  screen  is  blank  */ 

) 

} 

else  /*  n-next  >=  20  */ 

{ 
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for  (i=0;  i<20;  i++) 

write_string(i+3,  0,  table {next+i) ,  N0RM_VID) ; 

/*  highlight  choice  */ 

write_string(*line_no+3,  0,  table [*arrow_choice+20] ,  REV_VID) ; 
*arrow_choice  +=  20;  /*  line_no  stays  the  same  */ 

} 

} 

} 

/**★**★***********************★***★**★*★***★**★**************************★*** 
This  function  resets  display  to  beginning  of  table;  highlights  first  entry. 

*************rt***************************************************************/ 

void  goto_home (arrow_choice, line_no,  n, table) 
int  *arrow_choice;  /*  current  table  entry  */ 

int  *line_no;  /*  current  screen  line  number  */ 

int  n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  current  ship  table  */ 

{ 

int  i ; 

/*  display  first  screen  */ 
for  (i=l;  i<20;  iL+) 

write_string (i+3,  0,  table(i],  NORM_VID); 

/*  highlight  first  entry  */ 
write_string(3,  0,  table(0],  REV_VID) ; 

/*  reset  */ 

*arrow__c'noice  =  0; 

*line_no  =0; 

} 

This  function  displays  final  page  of  table;  highlights  final  entry. 

★ft***************************************************************************/ 

void  goto_end (arrow_choice,  line_no, n, table) 

int  *arrow_choice;  /*  current  table  entry  */ 

int  *line_no;  /*  current  screen  line  number  */ 

int  n;  /*  number  of  entries  in  table  */ 

char  **table;  /*  current  ship  table  */ 

{ 

int  i; 

/*  display  final  page  */ 
for  (i=0;  i<19;  i++) 

write_string(i+3,  0,  table (n-20+i) ,  N0RM_VID) ; 

/*  highlight  final  entry  */ 
write_string(22,  0,  table{n-l],  EEV_VID) ; 

*arrow_choice  =•  n-1;  /*  set  current  table  entry  to  final  entry  */ 

*line  no  =  19;  /*  set  current  screen  line  to  end  of  screen  */ 
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} 


/**************************************  *************************************** 
This  function  reads  string  data  from  a  file,  strips  leading  and  trailing 
spaces,  tabs,  and  carriage  returns,  fills  end  of  string  with  blanks,  and 
adds  a  null  character  to  the  end  of  the  string. 

fc*******************************************************************"**********/ 

void  read_table (in, table, length) 

FILE  *in;  /*  pointer  to  input  file  */ 

char  **table;  /*  current  table  */ 

int  length;  /*  length  of  desired  cursor  highlight  */ 

{ 

char  inline [81]; 
int  i,  j=>0; 

while  (fgets (inline, 81, in)  !=  NULL  ) 

{ 

strstrip (inline) ;  /*  strip  leading  &  trailing  spaces,  etc.  */ 

/*  skip  blank  &  comment  lines  */ 

if(inline(0]  ==  NULL  ||  inline[0]  ==  '!')  continue; 

/*  pack  end  of  string  with  blanks  so  highlight  goes  full  width  */ 
for  (i=strlen (inline) ;  i<length;  i++) 
inline [i]  =  '  '; 

inline [i]  =  NULL;  /*  terminate  string  with  null  character  */ 

/*  allocate  enough  memory  for  each  string  */ 

table ( j )  =  (char  *)  calloc (81 , sizeof (char) ) ;  /*  i3  this  necessary?  */ 

/*  — array  is  already  dimensioned  in  main()  */ 

/*  copy  string  from  file  into  array  */ 
strcpy (table ( j] , inline) ; 

j++;  /*  increment  counter  */ 

) 

) 

/********rtr****Jr*****rt******w******rtrt**'****************************rt*******rt*rt 

This  function  reads  strings  from  a  file  and  converts  them  to  floating 
point  data. 

a************************************************-****************************/ 


void  read_data (in, 

data_ 

line, data, array_length) 

FILE  *in; 

/*' 

pointer  to  input  file 

*/ 

int  data_line; 

/* 

ship  choice  from  table 

*/ 

float  *data; 

/* 

array  to  store  data 

*/ 

int  array_length; 

/* 

number  of  elements  in  array 

*/ 

( 

char  string (81 ], dummy ( 81] ; 
int  i,  3tatus, n, nbr; 

/*  skip  blank  i  comment  lines  */ 
while  \1) 
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{ 

fgets (string, 81, in) ; 

if (string [0]  ==  NULL  ||  string(0]  ==  '!') 

continue; 

else 

break; 

> 

if  (data_line  !=  0)  /*  if  choice  is  first  line,  string  already  read  */ 

{ 

for  (i=l;  i<data_line;  i++)  /*  read  £  discard  data  up  to  desired  line  */ 

fgets (dummy, 81,  in) ; 

fgets (string, 81, in) ;  /*  read  desired  line  of  data  */ 

} 

/*  convert  string  to  floating  array  */ 
status=stofa (string,  data,  &nbr , array_length) ; 

fclose(in);  /*  close  file  */ 

} 

/■a*************************************************************************** 
This  function  searches  for  the  matching  entry  in  Table  G-2,  or  gives 
first  occurrence  of  the  hull  type.  If  no  match  i3  found,  returns  -1. 
*****************************************************************************/ 
match_ship (hull_no, table, type_match) 
char  *hull__no; 
char  **table; 
int  *type_match; 

{ 

int  i=0,  j=0,  k=0,  n«141; 
int  status=0; 
int  match=0; 
char  class ( 23 J; 
int  flag=l; 

*type_match  =  -1; 

do 

{ 

status  =■  match_type  (hull  no,  table  ( j] )  ; 
if  (status) 

{ 

if  (flag) 

*type_match=j;  /*  captures  first  type  match  */ 

f lag=0; 

strnepy (class, table ( j ) , 23 ) ; 
class (23) =NULL; 

match  =  match_nbr (hull_no, class) ; 
if  (match) 
break; 
else 
{ 

j++; 
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continue; 


} 

} 

else 

j++; 

}  while  (j<=n); 

if  (status) 

{ 

return  j; 

) 

else 

return  -1; 

} 

/a*************************************-************************************** 
This  function  determines  if  the  specified  hull  type  matches  that  of  a 
given  entry  in  Table  G-2.  Returns  1  if  hull  type  matches,  otherwise 
returns  0. 

★★★ft************************************************************************* / 

match_type (hull_no, entry) 
char  *hull_no; 
char  *entry; 

{ 

int  i=0; 
int  status=0; 

while (hull_no[i]  !=  NOLL) 

{ 

if  (hull_no (i)=='  '  &&  hull_no ( i] ==entry [ i] ) 

{ 

status  =  1; 
break; 

) 

else  if  (hull_no ( i] ==entry ( i]  ) 

i++; 

else 

{ 

status  =  0; 
break; 

} 

} 

return  status; 

} 

/a*************************************************************************** 
This  function  compares  the  specified  hull  number  to  the  list  of 
numbers  in  a  given  entry  in  Table  G-2.  Returns  1  if  hull  number  matches, 
oterwise  returns  0. 

★★rtw*************************************************************************/ 

match_nbr (hull_no, class) 
char  *hull_no; 
char  *cl ess; 


186 


float  hull; 
float  tab(4); 
int  flag (3]; 
int  k=0,  m=0; 
char  string (23 J; 
float  nbr; 

/*  convert  hull_no  to  actual  number  */ 
while (hull_no(k)  !=  NULL) 

{ 

if  (hull_no(k]  <  '0'  ||  hull_no[k]  >  ' 9' ) 

k++; 

else  if  (hull_no{k)  >=  '0'  S&  hull_no(k]  <=  '9') 

( 

string (m] =hull_no [ k ) ; 

k++; 

m++; 

} 

} 

string (m) =NULL; 

stofa (string, Shull,  &nbr,  1) ; 

/*  convert  ship  class  to  floating  array  */ 

/*  —  strip  off  ship  type  */ 

k=0; 

while  (class  (k]  !=*  '  ') 

{ 

if  (class (k]  <=  '0'  ||  class [k]  >=  '9') 

k++; 

) 

/*  —  get  first  number  */ 

k++; 

m=0 ; 

while (class (k)  >=  '0'  &&  cla3s(k)  <=  '9') 

{ 

string (m) =class (k) ; 

k++; 

m++; 

} 

if  (class [k]  ==  ' ) 
flag(0]=0; 

else  if  (class (k]  ==  '/') 
flag (0] -1 ; 
else 

flag(0)  =  -1; 

string (m) =NULL; 

stofa (string, Stab (0) ,  Snbr ,  1) ; 

/*  —  get  second  number  */ 

k++; 

m=0; 

while  (class  (k]  >*>  '0'  SS  classjk)  <=  '9') 
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{ 

string (m] “class [k]  ; 

k++; 

m++ ; 

} 

if  (class [k]  ==  ' ) 
flag(l]=0; 

else  if  (class (k)  ==  ',') 
flag(l]=l; 
else 

flag(l]  =  -1; 

string [m] “NULL; 

stofa (string, &tab (13, &nbr, 1) ; 

/*  —  get  third  number  */ 

k++; 

m=0; 

while  (class  ( k )  >=>  '0'  &&  class  [k]  <=  '9') 

( 

string (m] =class [k] ; 

k++; 

m++; 

> 

if  (class (k]  ==  ' ) 
flag [2] =0; 

else  if  (class [kj  ==  ',') 
flag[2]*l; 
else 

flag[2]  =  -1; 

string (m) “NULL; 

stofa (string, Stab (2] , &nbr, 1) ; 

/*  —  get  fourth  number  */ 

k++; 

m=0  ; 

while (class (k]  >“  'O'  &6  class [k]  <=  '9') 

( 

string (m] -class [k] ; 

k++; 

m++; 

} 

string [m] “NULL; 

stofa (string, Stab [3 J , &nbr, 1) ; 

/*  find  match  */ 

if  (flag(0]<0)  /*  only  one  listed  */ 

( 

if  (hull==tab (0] ) 
return  1; 
else 
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return  0; 


} 

else  if  (flag(l]<0)  /*  only  two  listed  */ 

( 

if  (f lag(0] ==1) 

{ 

if  (hull==tab (0)  ||  hull==tab [ 1 ] ) 

return  1; 
else 

return  0; 

} 

else  if  (flag(0]==0) 

{ 

if  (hull>=tab (0]  &&  hull<=tab ( 1 ] ) 
return  1; 
else 

return  0; 

} 

) 

else  if  (flag[2]<0)  /*  only  three  listed  */ 

{ 

if  (flag(0]=“l  &&  flag(l]==l) 

{ 

if  (hu.'.l==tab(0]  ||  hull==tab(l]  ||  hull-tab  (2] ) 

return  1; 
else 

return  0; 

> 

else  if  (flag(0]—l  &&  flag[l]==0) 

{ 

if  (hull-tab  (0]  ||  (hull>=tab ( 1]  &&  hull<=tab[2] )  ) 

return  1; 
else 

return  0; 

) 

else  if  (flag(0J— 0  &&  f  lag  ( 1 3  =*=1 ) 

{ 

if  (  (hull>«tab (0 j  &&  hull<=tab [1] )  II  hull-tab  [2] ) 
return  1; 
else 

return  0; 

} 

) 

else  /*  four  listed  */ 

{ 

if  (flag[0]— 1  6S  flag(l)==l  is  flag(2]==l) 

( 

if  (hull*«tab(0]  ||  hull=*=tab(l]  ||  hull— tab  [2]  II  hull-tab  (3) ) 
return  1; 
else 

return  0; 

} 

else  if  (flag{0]==»0  &£  flag[l]«==l  &&  flag(2]==l) 

{ 
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if  (  (hull>=tab(0]  &&  hull<=tab (1] )  ||  hull==tab[2]  ||  hull==tab (3] ) 

return  1; 
else 

return  0; 

) 

else  if  (flag  .0 ] ==1  &&  flag(l]==l  &&  flag[2]==0) 

{ 

if  (hull==tab [0]  ||  hull==tab(l)  ||  (hull>=tab ( 2]  &&  hull<=tab [ 3] )  ) 

return  1; 
else 

return  0; 

} 

else  if  (flag(03==0  &&  flag(l]==l  &&  flag[2]=-f>) 

{ 

if  (  (hull>=tab (0]  &&  hull<=tab [1] )  ||  (hull>=tab (2)  &&  hull<=tab (3 ) )  ) 

return  1; 
else 

return  0; 

} 

) 

} 

/ft*************************************************************************** 

This  function  reads  the  ship  class  based  on  the  user's  choice  as 
specified  by  the  user  in  display_tab_g2 ( ) . 
*****************************************************************************/ 
void  read_class (choice,  table,  class,  length) 
int  choice; 
char  **table,  *class; 
int  length; 

( 

int  i; 

for  (i=0;  i<length;  i++) 

class(i]  =  table (choice] (ij ; 

class (length]  =  NULL; 

) 
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/ *************************************************************************** 
File:  dis.c 

Author:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  the  functions  which  display  the  ship  data  read 
from  file  and  give  the  user  the  opportunity  to  edit  it. 


Functions : 

display_data ( ) 
edit_data () 

******************************x************************x********************* 

♦include  "stdio.h" 

♦include  "do3.h" 

♦include  "keydef.h" 

♦include  "video. h" 

static  char  * label []  = 

{ 

"SHIP  DATA", 

"Hull  number:", 

"Clas3 : ", 

"Displacement " , 

"  Actual:", 

"  Tabulated:", 

"Frontal  area:", 

"Wind  coefficient:", 

"Propeller  area:", 

"Hull  resistance  curve:", 

"Wave  resistance  curve:" 


static  char  *footer[]  = 

( 

"Is  all  data  correct?  (yes/no)  :  ", 
"FI  Disp  F2  Front  F3  Wind  F4  Prop", 
"  Press  INS  to  continue  ", 

"  Save  data  to  file?  (yes/no):  ", 

"  Enter  tug  file  name:  " 

} ; 


static  char  choice (4); 

typedef  struct 

{ 

int  startcol; 
int  endcol; 

}  data  box; 


static  data  box  input (] 

( 

(43,50), 

” 

/* 

displacement 

*/ 

(43,50), 

/* 

frontal  area 

*/ 

(44,50), 

/* 

wind  coef 

*/ 
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{43,50},  /"  propeller  area  */ 

{54,58}  /*  yea/no  choice  */ 

} ; 

void  edit_data ( ) ; 

/***X*****X***********»<**-fc********'*Ax******'*******,**r*********A******rt***X*** 

This  function  displays  the  data  input  by  the  user  to  thi3  point,  and 
gives  the  option  to  edit  most  items. 

AAA  AXAAAAAAAAAXXAAAAAXXA'AXAAAAAAxAXAAAAAAAAAAAAA*  *******x***A**  AAXXAXXXAAXAX 

void  display_data (hull_no, class,  tow_data, ship_data) 


char  *hu, l_no; 

/* 

actual  hull  number 

*/ 

char  *01  a  is; 

/* 

ship  class  from  table 

G-2  */ 

float  *tov»  data; 

/* 

tow  data 

*/ 

float  *shij  _data; 

{ 

int  startrow=2; 

/* 

ship  data 

*/ 

int  3tartcol=20; 


int  endrow=22 ; 
int  endcol=60; 

int  row,  col,  i,  start,  key; 
char  at ring ( 24]; 

/*  draw  background  and  border  */ 

draw_window (startrow,  startcol.  endrow, endcol, DOUBLE, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, ended, label [0] , REV_VID) ; 

/ *  write  data  labels  */ 

for  (row*=startrow+5,  i~l;  i<=10;  i++, row++) 

write_string(row, startcol+3, label [i] , REV_VID) ; 

/*  write  data  */ 

/*  write  hull  number  */ 

write_string (startrow+5, startcol+2+strlen (label [ 1] ) +2, hull_no, REV_VID) ; 
/*  write  ship  class  */ 

write_string (startrow+6, startcol+2+strlen (label (2) ) +2, class,  REV_VID) ; 

/*  write  actual  displacement  */ 
sprintf (string, "%S .Of", tow_data (0] ) ; 

write_string(startrow+8, startcol+2+strlen (label [4] ) +8, string, REV  VID) ; 

/*  write  tabulated  displacement  */ 
sprintf (string, "%8 . Cf ",  ship_data (0] ) ; 

write_string (startrow+9, startcol+2+strlen (label [5] ) +5, string, REV_VID) ; 

/*  write  frontal  windage  area  */ 
sprintf (string, "%5.0f", ship_data(l] ) ; 

write_string (startrow+10,  startcol+2+str len (label ( 6J ) +10 , string, REV_VID) ; 


/*  write  wind  coefficient  */ 


sprintf  (string,  ‘*%4 .2f",  ship_data(2]  )  ; 

writs_string (startrow+11, startcol+2-strlen (label ( 7] )+7,  .string, REV_VID) ; 

/*  ;rite  propeller  area  */ 

sprintf (string,  "%5 . Of " ,  ship_data (3 ] ) ; 

write_string (startrow+12,  startcol+2+strien (label [ 8) ) +8, string, REV_VID) ; 

l *  write  hull  resistance  curve  number  */ 
sprintf ( string, "%3 . Of" ,  ship_data ( 4 ] )  ; 

write_string (start row+13,  startcol+2+strlen (label [9] ) +3, string, R£V_VID) ; 

/*  write  wave  resistance  curve  number  */ 
sprintf \string,  “%3 . Of ",  ship_data [ 5] )  ; 

write_string(startrow+14,  startcol+2+3trlen (label [ 10 ] ) +3,  3tring, REV_VID) 
/*  write  units  */ 

write_string(startrow+8, startcoj +31, "tons", REV_VID) ; 
write_string (startrow+9, startcol+31 , "tons" , REV_VID) ; 
write_string(startrow+10,  startcox+31,  "sq  ft",  REV__VID) ; 
write_string (startrow+12,  startcol+31,  "sq  ft", REV_VID) ; 

/**************************************************■********/ 

/*  prompt  user  for  confirmation  of  data;  give  edit  option  */ 
/*******************************************-***************/ 
start  =  startcol  +  3; 

write_string(startrow+16,  start, footer (0] , REV_VID) ; 
vid_box (startrow+16, start+strlen (footer (0] ) , 4 ) ; 

edit_data (4 , start row-r-16,  start+strlen (footer iC] ) , tow_data,  ship_data) ; 

/*  test  if  data  correct  */ 

if  (  choice  [0]  !  =■'  y'  &&  choice  (0]  !»' Y'  &&  choice  (0]  !  =NULL  ) 

( 

/*  erase  previous  message  */ 
start  =  startcol  +  3; 

for  (i=0;  i<strlen (footer [0] ) +4 ;  i++) 

write_char  (startrow+l,'>,  start  +  i,  '  '  ,  REV_VID)  ; 

/ *  write  quit  message  */ 

start" (endcol-startcol-strlen (footer { 2] )) /2  +  3tartcol; 
write_string (endrow,  start,  footer (2] , REV_VID) ; 

/"  write  edit  "menu"  */ 

3tart« (endcol-startcol-strlen (footer ( 1] )) /2  +  started; 
write_string (startrow+16, start, footer (1) , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 
for(i=0;  i<2;  i++) 

{ 

write_char (startrow+16,  start+i, footer[l]  ( i] , NORM_VID) ; 
write_char (otartrow+16, start+8+i, footer [1) (i+8) ,N0RM_VID) ; 
write_char (startrow+16,  start+17+i, footer ( 1) (i+17 J ,  N0RM__VID)  ; 
write_char (st.artrow+16,  start+25+i, footer(l] [i+25]  ,N0RM_VID) ; 
x 
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/A'.********************************************************/ 

/■*  edit  data  */ 

/*********************t************n****jt*****************«r/ 

/*  move  cursor  to  FI  highlight  */ 
cursor  on(); 

goto_xy (startrow+16, start) ; 

/*  get  user's  choice  */ 
while  (1) 

{ 

key=get_special ()  ; 

if  (key==Fl) 

( 

vid_box (startrow+8, startcol+2+strlen (label [4] )+9, 7) ; 

edit_data (0, startrow+8,  startcol+2+str len (label (4) ) +9. tow_data, ship_data) 
for  (i=0;  i<7;  i++) 

write_char (startrow+8,  startcci+2+strlen (labei [4 )) +9+i, '  ' , 

REV_VID) ; 

sprintf (string, "%8 . Of ",  tow_data (0) ) ; 

write_3tring (startrow+8, startcol+2+strlen (label [4] ) +8, string, 

REV_VID) ; 

cursor_on () ; 

goto_xy (startrow+16, 3tart) ; 

) 

else  if  (key=-*F2) 

( 

vid_box (start row+lC, startcol+2+strlen (label (8) ) +8, 7) ; 
edit_data (1, startrow+10, startcol+2+strlen (label [6] ) +8 , 
tow__data,  =hip_data)  ; 
for  (i=0;  i<7;  i++) 

wri’.e_char  (startrow+10, startcol+2+strlen < label [ 6] )+8+i, '  ' , 

REV_VID) ; 

sprintf (string, "%6.0f",  ship_data(lj ) ; 

write_string(rtartrow+10,  startcol+2+strlen (label [ 6) ) +9, string, 

REV_VID) ; 

cursor_on () ; 

goto  xy (startrow+16, start+8) ; 

} 

else  if  (key*=-=F3) 

{ 

vid_box (startrow+ll , startcol+2+strlen (label (7) ) +5, 6) ; 
edit_data (2, startrow+ll, 3tartccl+2  +  strlen (label (7) ) +5,  tow_data, 
ship_data) ; 
for  (i”C;  i<7;  i++) 

write_char (startrow+11,  startcol+2+strlen (label (7) )+5+i,  '  '  , 

P.EV_VIDt  ; 

sprintf (string,  "*6.2f",  ship_data{2) ) ; 

write_;tring( startrow+ll,  atartcol+2+strlen (label (7) ) +5, string, 

REV_VID ) ; 

cursor_on ( j ; 

goto_xy (startrow+16,  start+17) ; 

} 

else  if  (key«“F4) 
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{ 

vid_box  (startrow+12,  startcol+2+atrlen  (label  (8  J )  +6,  7 )  ; 
edir__aata  (3,  startrow+12,  startcol+2+strlen  (label  (8) )  +6,  tow_data, 
ship_data)  ; 
for  (i=0;  i<7;  i++) 

writ.e_char  (startrow+12,  startcol+2+3hrlen (label [8] >  +6+i,  '  '  , 

REV_VID> ; 

sprintf (string, ”%7.0£", ship_data[3) ) ; 

wrrte_string (startrow+12,  startcol+2+strlen (label ( 8 ] ) +6,  string, 
REVVID) ; 

cursor_on ()  ; 

aoto_xy (startrow+16,  start+25)  ; 

} 

else  if  (key==INSERT) 

{ 

/*  erase  menu  */ 

for  (i=0;  i<strlen (footer [1] ) ;  i++) 

write  char (startrow-i-16,  start+i,  '  '  ,  REV_VID)  ; 

/*  erase  message  *1 
start  =“  startcol  +  1; 

for  (i=0;  i< (endcol-startcoi-l) ;  i++) 
write_char  (endrow,  start+i,  205,  REV_V1D)  ; 
break; 

} 

} 

cursor_off () ; 

) 

else  /*  no  editing  required  */ 

{ 

/*  erase  previous  message  V 

start  *  startcol  +3; 

for  (i=0;  i<strlen (footer (0) ) +4 ;  i++) 

write_char (startrow+16, start+i, '  ' , REV_VID) ; 

} 

/*  prompt  to  save  data  to  file  */ 
start  =  startcol  +  3; 

write_string (endrow-4 ,  start,  footer (3)  ,  REV_VID)  ; 
vid_box (endrow-4, start+strlen (footer [3] ) ,  4) ; 

edit_  data (4, endrow-4, start+strlen (footer [3] ) , tow__data, ship_data) ; 

if  (  choice (0] !=' n'  S&  choice (0] !=' N'  )  /*  save  data  */ 

{ 

/*  erase  previous  message  */ 

start  «  startcol  +  3; 

for  (i=0;  i<strlen (footer (3] ) +4 ;  i++) 

•write  char  (endrow-4 ,  start+i, '  ',REV_VID); 


} 


save_ship_f ile (startrow, startcol,  endrow, endcol, hull_no, 
class, tow_data, ship_d*ta) ; 


} 
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This  function  allows  editing  of  the  data  displayed  by  display_data () . 
a:***************************************************************************/ 

void  edit_data(i,  row, col,  tow_data, ship_data) 
int  i; 
int  row; 
int  col; 

float  *tcw_data, *ship_data; 

{ 


int  nbr; 

/* 

required  arg  for  stofa 

*/ 

int  status; 

/* 

takes  return  value  for  stofa 

■7 

char  textl [39),  text2(39); 

/* 

error  message  text 

*/ 

int  k; 

/* 

counter 

*/ 

char  string{24); 

/* 

array  for  keyboard  input 

V 

cursor_on ( ) ; 

/* 

turn  on  cursor 

*/ 

goto_xy (row, col) ; 

/* 

move  cursor  to  start  of  box 

*/ 

/*  get  user  input  */ 

screen_getstrg (i,  row,  col, string, NORM  VID, input) ; 


if  (i<4 ) 

{ 

/*  check  for  valid  numeric  input  */ 
for  (k=0;  k<strlen (string) ;  k++) 

{ 

if  (  string (k]==' . '  )  ; 

else  if  (string [k] <'  0'  ||  string(k)>' 9' ) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl ,  "  " )  ; 
vid_box(row,  col,  7)  ; 

edit_data (i, row,  col,  tow_data,  ship_data) ; 
return  ; 

} 

} 

/*  if  input  valid  numbers  only,  convert  string  to  float  */ 
if  <i==0) 

status  “  stofa (string, &tow_data (i) , &nbr, 1) ; 
c.lse 

status  =  stofa (string, &ship_data(i] , &nbr, 1) ; 

} 

else  /*  i  =«=  4  */ 

strcpy (choice, string) ; 

/*  check  data  for  consistency  */ 
if  (i=«»0)  /*  check  displacement  */ 

( 

if  (tow_data ( i] <=0 . 0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl,  "  " ) ; 
vid_box(row,col,7) ; 

edit_data (i, row, col, tow_data, ship_data) ; 
return  ; 

} 
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else  if  (  tow_data ( i] <350 .0  ||  tow_aata E i] >91900 . 0  S& 
tow_data[i] <=100000 .0  ) 

{ 

sprintf (textl , "Displacement  is  outside  range"); 
sprintf  (to.xt2,  "of  data  in  Table  G-2")  ; 
display_error (WARN, textl, text2) ; 

} 

else  if  (  tow_data ( i] >100000 . 0  ) 

{ 

sprintf (textl, "Invalid  entry;  try  again”); 
display _error (ERROR,  textl,  "  "); 
vid_box (row, col, 7) ; 

edit_data (i, row, col,  tow_data,  ship_data) ; 
return  ; 

) 

> 

if  (i==l)  /*  check  frontal  area  */ 

{ 

if  (ship__data  (i)  <=0 .0) 

{ 

sprintf (textl, "Invalid  entry;  try  again”); 
display_error (ERROR,  textl,  "  ")  ; 
vid_box(row,  col,  7)  ; 

edit_data (i, row, col, tow_data,  ship_data>  ; 
return  ; 

) 

else  if  (ship_data(i]>50000.0) 

{ 

sprintf (textl, "Frontal  area  is  unusually  high;"); 
sprintf (text2, "please  check  this  number  again."); 
display_error (WARN, textl, text2) ; 

) 

} 

if  (i==2)  *  check  wind  coefficient  */ 

{ 

if  (ship_data [ i ] <0  j|  ship_data ( i ) >1 .0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " ) ; 
vid_box (row, col, 7) ; 

edit  data (i, row, col, tow_data,  ship_data)  ; 
return  ; 

} 

} 

if  (i==»3)  /*  check  propeller  area  */ 

( 

if  (ship_data (i) <0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl ,  "  " ) ; 
vid_box (row,  col,  7) ; 

edit_data (i, row, col, tow_data, ship_data) ; 
return  ; 

} 
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else  if  (ship_data(i] >1500.0) 

{ 

sprintf (textl, "Propeller  area  is  unusually  high;”); 
sprintf (text2, "please  check  this  number  again."); 
dispiav_ecror (HASH,  textl, text2) ; 

} 

} 

cursor_of£ {) ; 
goto_xy (0,0) ; 
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rile:  dock.c 

Author:  Todd  J.  Peitzer 

Last  update:  30  April  1553 

Tris  tile  contains  functions  which  support  computation  of  the 
resistance  of  floating  arydocks  and  barges. 


Functions : 
get_dock ( ) 
get_hul  i__cond  ( ) 

, at_dock_towdaca ( } 
dock_summary ( ) 
get_name I ] 
get_dock  resist <) 
dock_resist () 
square () 
gec._dock__data  ( ) 
get_dock  rile() 
save__dock_iiIe  ( ) 
est_disp() 

♦  include  ''stdio.h" 

♦include  "do3.h" 

♦include  "keydef.h" 

♦include  "video. h" 

static  char  ^header (]  = 

{ 

" SELECT  DRYDOCK" , 

"HULL  CONDITION", 

"TOW  DATA", 

"DATA  SUMMARY" 

}  ; 

static  char  *label(]  = 
t 

"Clean  hull  (no  growth) 

"Average  hull  (moderate  growth) 
"Fouled  hull  (heavy  growtn) 
"Enter  hull  condition:", 

"Tow  speed:", 

"Max  expected  wind  3peed:", 
"Relative  wind  direction:" 

} ; 

static  char  *labell(]  = 

( 

"Options" , 

"Retrieve  File", 

"Enter  name  of  tow  file", 

"to  retrieve  (8  char  max) :  " 

) ; 
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static  char  *menul(]  = 

{ 

"1)  Enter  new  data  ", 

"2)  Edit  existing  data", 

"3)  Retrieve  data  file" 

}; 

static  char  *footer(]  = 

' 

"Please  enter  data.", 

"Is  ail  data  correct?  (yes/nc) :  ", 

"FI  Name  F2  Hull  F3  Tow", 

"F4  Wind  F5  Rel", 

"  Press  INS  to  continue  ", 

"  Save  data  to  file?  (yes/no) : 

"  Enter  tow  file  name :  " 

), 

static  char  response(4); 

typedef  struct 

{ 

int  started; 
int  ended; 

}  data_box; 

static  daca_box  i'put(]  = 

{ 

{49,55},  /*  not  used  */ 

{49,55},  /*  hull  condition  */ 

{49,55},  /*  tow  speed  */ 

{49,55},  /*  wind  speed  */ 

{49,55},  /*  wind  direction  */ 

(54,58},  /*  yes/no  choice  */ 

{49,58}  /*  tow  file  name  */ 

} ; 

static  int  startrow=»2;  /*  boundaries  of  window  */ 

static  int  startcd=>20;  /*  "  */ 

static  int  endrow»>22;  /*  "  */ 

static  int  endcol»60;  /*  "  */ 

void  get_hull_cond()  ,  get_dock_towdata (} ; 

void  dock_summary () , get_dock_data ()  ,  get_name () , get_dock_resist ( ) ; 
void  dock_resist ( ) ,  save_dock_f ile () , est_disp() ; 

extern  float  resist_dat (5} ; 

a************************************************************************ 
This  function  displays  the  drydocks  listed  in  Table  G-4  of  the  U.S.  Navy 
Towing  Ma.,u*l.  gets  the  user's  choice,  and  reads  the  appropriate  data  from 
the  table  based  on  that  choice. 

a****************************************************************************/ 
get_dock (flag, choice,  data, name, tow_data) 
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int  *flag; 
int  ’'choice; 
float  *data; 
char  'nine; 
float  *tow  data; 
( 

int  start; 


/*  status  flag  */ 

/*  drydock  selection  */ 

/*  array  to  hold  drydock  towing  data  from  Table  G-4  */ 
/*  drydock  name  */ 

/*  array  to  hold  tow  data  */ 


int  choicel, status; 
FILE  *in; 


char  tat-e (15 j [35} ; 
char  tertl (39] , text2 f 39] ; 


/*  clear  background  */ 

clear (startrcw+l, startcol+1, endrow-1, endcol-i, REV_VID) ; 

/*  writs  header  */ 

write_header (startrow, started, endcol, header (0] , REV_VID) ; 

if  {flag(23;  /*  retrieve  data  from  file  */ 

f 

status"get_dock__f lie (startrow,  atartcoi,  endrow,  endcol,  name, 
data,  tow_data) ; 

if  (status<0) 

t 

curscr_of f { ) ; 
return  (-1)  ; 

} 

est_disp (0, data, tow_data) ; 
i 

else  if  (!flag(l]  &&  !flag[2J)  /*  enter  new  data  */ 

{ 

/*  read  drydock  types  from  file  */ 
in  =  fopen ("dock_».  r.dat",  "r") ; 
read_table (in, table, 33) ; 
fclose (in) ; 


/■*  use  popup  function  to  display  drydock  choices  '/ 

♦choice  =»  popup(tafcle,  14,  startrowt’*,  star tcoi+1, NONE,  REV_VID,  0)  ; 

/*  check  for  ESC  key  */ 
if  (  (‘choice)  <  0) 

( 

statuo“get_dock (flag,  choice,  data,  name  tow_data) ; 
return  (0); 

) 


/*  read  drydock  name  */ 
read_class (‘choice, table,  name,  13) ; 

/*  read  data  from  file  based  on  choice  */ 
in  =  fopenCdrydock.dat",  "r")  ; 
read_data (in,  ‘choice,  data,  7 )  ; 
fclose (in) ; 
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return  (0); 


/  +  ***************************•*****************************************  ******* 
Thi.3  function  displays  a  numerical  scale  for  hull  fouling  and  prompts 
the  user  for  input.  Based  on  that  input,  the  drydock  towing  coefficient 
"fl"  is  assigned  a  value  from  0.45  to  0.00. 

***********************************************X*****************************/ 

void  get_hull_cond(tow_data) 
float  *tow_data; 

{ 

int  row,  col,  i,  key; 

int  start; 

char  string[81]; 

/*  draw  background  and  border  */ 

draw_window (startrow, started, endrow, endcol, DOUBLE, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol,  endcol, header [ 1] , REV_VID) ; 

/*  write  labels  */ 

start  =  (endcol  -  startcol) /2  +  startcol; 
write_string(startrow+5, startcol+3, label(O) ,REV_VID) ; 
write_char (startrow+6, start, 25,  REV_VID) ; 
write_string(startrow+7, startcol+3, label (1) , REV__VID) ; 
wiite_char (startrow+8, start, 25,  REV_VID) ; 
write_3tring(startrow+9, startcol+3, label {2] ,  REV_VID) ; 
write_string(startrow+ll,  startcol+3,  label (3) ,  REV_VID) ; 

/*  create  normal  video  box  for  data  entry  */ 
vid_box (startrow+11, startcol+3+strlen (label (5] ) +2, 6) ; 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen (f oocer (0) ) ) /2  +  startcol; 
write_3tring(startrow+13, start, footer {0) , REV_VID) ; 

/************** ******************  ********** ***w****x*** ******** *****/ 

/*  get  hull  condition  */ 

/*******************************************************************/ 
get_dock_data (4, startrow+11, startcol+3+strlen (label (5) ) +2, tow_data) ; 
for  (i^O;  i<7;  i++) 

write_char (startrow+11,  startcol+3+strlen (label [5] ) +2+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If ", tow_data (4  ] )  ; 

write_string (startrow+11,  startcol+3+strlen ( label ( 5) ) , string, REV_VID) ; 

/*  erase  prompt  */ 

start  =  (endcol-startcol-strlen (footer [ 0] )) /2  ^  startcol; 
for  (i=0;  Kstrlen (footer (0) ) ;  i++) 

write_char (startrow+13,  start+i, '  ' , REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, startcol, endrow, endcol, footer (4) , REV_VID) ; 
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/■fr**************************************************************** 

This  function  prompts  the  user  for  tow  speed,  wind  speed, 
and  relative  wind  direction. 

*********************x********************************************/ 

void  get_dock_towdata (tow_data) 
float  *tow_data; 

( 

int  row,  col,  i,  key; 

int  start; 

char  3tring(81]; 

/*  clear  portion  of  window  */ 

clear (startrow+1, startcoi+1, endrow-1,  endcol-1,  REV_VID) ; 

/*  write  header  */ 

write_header (startrow, start col, ended, header [ 2  J , REV_VID) ; 

/*  write  labels  */ 

write_stxing (startrow+7, startcol+3,  label {4] , REV_VID) ; 
write_strir.g(startrow+9, startcol+3, label (5] , REV_VID) ; 
write_string (startrow+11,  startcol+3, label (6) , REV_VID) ; 

/*  create  normal  video  boxes  for  data  entry  */ 
via  box (startrow+7, startcol+3+strlen(label (5) ) +2, 6) ; 
vid_box (startrow+9, startcol+3+strlen (label [5] ) +2, 6) ; 
vid_oox (startrow+11, startcol+3+strlen (label (5) ) +2, 6) ; 

/*  wrrte  footer  */ 

start  =  (endcd-startcol-strlen  (footer  (0) )) /2  +  started; 
write_stri ng(startrow+13,  start, footer (0] , REV_VID) ; 

/*  write  units  */ 

write_string (startrow+7, endcol-4,  "kts", REV_VID) ; 
write_string (startrow+9, endcol-4,  "kts",  REV_VIR) ; 
write_string (startrow+11,  endcol-4 , "deg" , RE,r_VID) ; 

/*  get  data  */ 

/*  —  tow  speed  */ 

get_dock__data (1, startrow+7, startcol+3+strlen (label [5] ) +2, tow_data) ; 
for  (i=»0;  i<7;  i++) 

write_char (startrow+7, startcol+3+strlen (label (5) ) +2+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If " , tow_data ( 1 ] ) ; 

write_string (startrow+7,  startcol+2+strlen (label (5) ) +2,  string, R£V_VID) 
/*  ' —  wind  speed  */ 

get_dock_data (2,  startrow+9,  atartcol+3+strlen ( label (5) ) +2,  tow_data) ; 
for  (i=C;  i<7;  i++) 

write_char (startrow+9,  startcol+3+strlen (label (5) ) +2+i,  '  '  , REV_VID) ; 
sprintf (string, "%7 . If ",  tow_data (2] )  ; 

write_string (startrow+9,  startcol+2+strlen (label (5) ) +2,  string, REV_VXD) 
/*  —  wind  dir  */ 

get_dock_data (3, startrow+11, startcol+3+strlen (label (5) ) +2, tow_data) ; 
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for  (i=0;  i<7;  i++) 

write_char (startrow+l 1,  startcol+3+sirlen (label [5] ) +2+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If", tow_data [3] )  ; 

write_string (startrcw+11, startcol+2+strlen (label (5] ) +2, string, REV_VID) ; 

/*  erase  prompt  */ 

start  =  (er.dcol-startcol-strlen  (footer  {0] ))  /2  +  started; 
for  (i=0;  i<strlen (footer (0] ) ;  i++) 

write_char (startrow+13,  start+i,  '  ' , REV_VID) : 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, started, endrow, endcol, footer! 4] , REV_VID) ; 

} 

/********************************  ******************************************** 
This  function  displays  a  summary  of  input  data  and  gives  the  user  the 
opportunity  to  edit. 

*****************************************************************************/ 

void  dock_3Ummary (choice, dock_data, tow_data, name) 

int  * choice; 

float  *dock__data; 

float  *tow_data; 

char  *name; 

( 

int  row,  col,  i,  key; 

int  start; 

char  string (81); 

unsigned  char  *p;  /*  buffer  for  screen  data  */ 

/*  clear  portion  of  window  */ 

clear (startrow+l, startcol+l, endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, started,  endcol, header [3] , REV_VID) ; 

/*  write  labels  */ 

write_string  (startrow+5 ,  startcd+3,  "Name :  " ,  REV_VID)  ; 
write_string(startrow+7, startcd+3,  "Hull  condition: ", REV_VID) ; 
write_string  (startrow+9,  startcd+3,  label  [4 )  ,  REV_VID)  ; 
write_string(startrow+ll,  startcd+3,  label  [5] ,  REV_VID)  ; 
write_string (startrow+13, startcol+3, label [6) , REV_VID) ; 

/*  write  data  */ 

write_string (startrow+5, startcol+3+6, name, REV_VID) ; 
sprintf (string, "%7 . If ", cow_data (4 ] ) ; 

write_3tring(startrow+7, startcol+3+strlen (ladDel (5) ) , string, REV_VID) ; 
sprintf (string, "%7. If ",  tow_data [1] ) ; 

write_string (startrow+9, startcol+3+strlen (label[5)) , string, REV_VID) ; 
sprintf (string, "%7 . If", tow_data (2] ) ; 

write_string (startrow+l 1, startcd+3+strlen (label [ 5) ) , string, REV_VID) ; 
sprintf (string, "%7. If", tow_data{3] ) ; 

write_string (startrow+13, startcd+3+strlen (label [ 5] ), string, REV_VID) ; 

/*  write  units  */ 


204 


write_string (startrow+9,  start col+3+strlen (label (5 ]) +9, "lets" , REV_VID) ; 
write_string (startrow+ll,  startcol+3+strlen (label ( 5] ) +9,  "kts" , REV_VID) 
write  string (startrow+13,  startcol+3+strlen (label [5] ) +9,  "deg", REV_VID) 

/*  write  footer;  prompt  for  confirmation  of  data  V 
/*  write  footer  */ 

write_string (endrow-2, startcol+3,  footer (1] , REV_VID) ; 

/*  create  normal  video  box  for  data  entry  */ 
vid_box (endrow-2, startcol+3+strlen (footer (1] ) , 4) ; 

/*  get  response  */ 

get_dock_data (5 ,  endrow-2,  startcol+3+strlen (footer [ 1 ] )  ,  tow_data) ; 

/*  test  if  data  correct  */ 

if  (  response (0] !=' y'  &&  response (0) !=' Y'  &&  response (0 ]! =NULL  ) 

( 

/***********«************************************************/ 

/*  edit  data  */ 

/*******•**************************************•***************/ 

/*  erase  previous  message  */ 

start  =  s  ;artcol  +  3; 

for  (i=0;  i<strlen (footer (1] ) +5;  i++) 

write_char (endrow-2, start+i,  '  ' ,REV_VID) ; 

/*  write  quit  message  */ 

start=(endcol-startcol-strlen(footer(4] ) ) /2  +  startcol; 
write_string(endrow, start, footer (4) ,REV_V1D) ; 

/*  write  edit  "menu"  */ 

3tart=*  (endcol-startcol-strlen (footer [2J )) /2  +  startcol; 
write_string ( startrow+15,  start,  footer (2 ] ,  REV_VID) ; 
start= (endcol-startcol-strlen (footer (3) )) /2  +  startcol; 
writa_string (startrow+16,  start,  footer(3] , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 
for(i=«0;  i<2;  i++) 

( 

start= (endcol-startcol-strlen (footer ( 2) )) /2  +  startcol; 
write_char (startrow+15, start+i,  footer [2] (i) ,H0RM_VID) ; 
write_char (startrow+15,  start+8+i,  footer (2] (i+8) ,N0RM_VID) ; 
write_char (startrow+15, start+16+i, footer [2] [i+16) , N0RM_VID) ; 
start- (endcol-startcol-strlen (footer [3] )) /2  +  startcol; 
write_char (startrow+16,  start+i,  footer (3) [ i) , N0RM_V!D) ; 
write_char (startrow+16,  start+8+i,  footer [3) [i+8] ,NORM_VID) ; 

} 

/*  move  cursor  to  FI  highlight  */ 
cursor_on () ; 

start- (endcol-startcol-strlen (footer ( 2 ) )) /2  +  startcol; 
goto_xy (startrow+15, start) ; 

/*  get  user's  choice  */ 
while  (1) 
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key=get_special () ; 

/****************/ 
if  (key=*=Fl)  /*  drydock  name  */ 

{  /****************/ 
cursor_of f () ; 

/*  allocate  enough  memory  for  menu  screen  buffer*/ 

p  =  (unsigned  char  *)  malloc (2* (endrow-startrow+1) * (endcol-startcoi+1)  ) 
if(!p)  exit(l);  /*  install  error  handler  here  */ 

/*  save  the  current  screen  data  */ 
save_screen  (startrow,  started,  endrow,  ended,  p)  ; 

get_dock (choice, dock_data,  name) ; 

/*  restore  the  original  screen*/ 

restore_screen  (startrow,  started,  endrow,  ended,  p)  ; 
free (p) ; 

write_string(startrow+5,  startcd+3+6,  name,  REV_VID)  ; 
cursor_on () ; 

start=  (endcd-startcol-strlen  (footer(2)  ) )  /2  +  started; 
goto_xy (startrow+15 ,  start)  ; 

}  /******************/ 

else  if  (key==F2)  /*  hull  condition  */ 

(  /******************/ 

vid_box  (startrow+7,  startcd+3+strlen( label  (5) )  +2,  6)  ; 
get_dock_data (0, startrow+7,  startcd+3+strlen (label [5] ) +2,  tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+7, startcol+3+strlen (label (5) ) +l+i,  '  ' , REV_VID) ; 

sprintf (string, "%7 . If", tow_data (0] ) ; 

write_string (startrow+7, startcol+3+strlen (label (5 ) ) , string, REV_VID) ; 
cursor_on  0 ; 

start= (endcol-startcol-strlen (footer [2] ) )/2  +  startcol; 
goto_xy (startrow+15,  start+8) ; 

)  /*************/ 

else  if  (key==*F3)  /*  tow  speed  */ 

{  /*************/ 

vid_box(startrow+9, startcol+3+strlen(label(5) )+2, 6) ; 
get_dock_data (1, startrow+9, startcd+3+strlen (label (5) ) +2, tow_data) ; 
for  (i»0;  i<7;  i++) 

writo_char (startrow+9, startcd+3+strlen (label (5) ) +l+i, '  ' , REV_VID) ; 
sprintf (string, "%7. If ", tow_data [1] ) ; 

write_string (startrow+9,  startcd+3+strlen  (lad^el  [5] )  ,  string,  REV_VID)  ; 
cursor_on () ; 

start- (endcol-startcol-strlen (footer ( 2 ))) /2  +  started; 
goto_xy (startrow+15, start+16) ; 

}  /**************/ 

else  if  (koy==F4)  /*  wind  speed  */ 

{  /**************/ 

vid_box (starcrow+ll, start col+3+strlen (laibel (5) ) +2 , 6) ; 
get_dock_da(,a  (2,  startrow+ll ,  startcd-*-3+strlen  (label  (5  3 )  +2,  tow_data)  ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+ll,  startcol+3+strlen (label [5] ) +l+i, '  ', REV  VID) ; 


206 


sprintf (string,  "%7 . If ",  tow_data [2]) ; 

write_string (startrow+11,  startcol+3+str len  (label  ( 5] )  ,  string,  RSV_VID)  ; 
cursor_on ( )  ; 

start= (endcol-startcol-strlen (f ootor [3] ) ) /2  +  startcol • 
goto_xy (startrow+16,  start)  ; 

}  /******************  j 

else  if  (key==F5)  /*  wind  direction  */ 

{  /******************/ 

vid_box(startrow+13,  startcoi+3+strlen  (label  [5] )  +2,  6) ; 
get_dc^.k_data (3,  startrow+13,  startcoi+3+str1 en (label [5] ) +2, tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char  (startrow+13,  startcol+3+strlen  (label  (5] )  +  l+i,  '  '  ,  REV_VID) 
sprintf (string,  "%7 . If",  tow_data (3) ) ; 

write_string (startrow+13,  startcol  i-3+strlen (label [5] ) , string, REV  VXD) ; 
cursor_on () ; 

start= (endcol-startcol-strian (footer ( 3) )) /2  +  star~col; 
goto_xy (startrow+16,  start+8) ; 

> 

else  if  (key==INSERT) 

{ 

/*  erase  menu  */ 

start= (endcol-startcol-strlen (footer [ 2) )) /2  +  startcol; 
for  (i=0;  i<strlen (footer (2 ]) +1 :  i++) 

( 

write_char (startrow+15,  start+i,  '  '  ,  REV_VID) ; 
write_char (startrow+16, start+i, '  ' , REV_VID) ; 

} 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen (footer [4) )) /2  +  startcol; 
for  (i=0;  Kstrlen (footer (4] ) ;  i++) 

write_char (endrow,  start+i,  205,  REV_VID) ; 
break; 

I 

} 

} 

else  /*  no  editing  required  */ 

{ 

/*  erase  previous  message  */ 

start  =  startcol  +  3; 

for  (i=0;  i<strlen ( footer (0] ) +4;  i++) 

write_char (endrow-2, start+i, '  ' , REV_VID) ; 

} 

/*  prompt  to  save  data  to  file  */ 
start  »  startcol  +3; 

write_string (endrow-2, start,  footer (5) , REV_VID) ; 

vid_box (endrow-2, start+strlen (footer [5] ) , 4 ) ; 

get_dock_data (5,  endrow-2,  start+strlen (footer [ 5) ) , tow_data) ; 

if  (  response (0) !=' n'  &&  response (0] !=' N'  )  /*  save  data  */ 

( 

/*  erase  previous  message  */ 

start  =*  startcol  +  3; 

for  (i=0;  i<strlen (footer [5] ) +4 ;  i++) 

write  char (endrow-2, start+i, '  ',REV  VID) ; 
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} 


eave_dock_f ile (startrow, startcol,  endrow,  endcol,  name, 
dock  data, tow  data) ; 


) 

/******♦********'*******'*************★***•**★*****’*********★******■****•■'*■**'**■**'* 
Thi3  function  computes  the  towing  rea Lstance  of  a  drydock  based 
on  the  method  in  section  G-2  of  the  U.S.  Wavy  Towing  Manual. 

float  square ( ) ; 

void  get_dock_resist (name,  tug_data,  dock_data,  tow_data, tension) 

char  "name; 

float  xtug_data; 

float  xdock_data; 

float  *tow_data; 

float  *ten3ion; 

{ 

static  char  header (]  ~ 

{ 

"RESISTANCE" 

}  ; 


static  char  * label []  = 

{ 

"Drydock: ", 

"Table  G-4  data", 

"  fl:", 

"  f  2  :  " , 

"  f  3  : " , 

"  Wetted  surface  area:", 
"  Cro33  sectional  area", 
"  Below  waterline:", 

"  Above  waterline:", 

"Resistance", 

"  Frictional:", 

"  Wave  forming:", 

"  Wind:", 

"  Hawser:", 

"  Total:" 


}; 


int  row,  col,  i,  key; 

int  start; 

char  string (81); 

float  friction; 
float  wave; 
float  wind; 
float  fl; 
float  resistance; 
float  haw  res; 
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cursor  of£(); 


/*  convert  hull  condition  to  fl  coefficient  */ 
fl  =  tow_data ( 4 ]  / 10 . 0  *  (0.8  -  0.45)  -s-  0.45; 

/*  compute  resistance  */ 

friction  =  fl  *  dock_dats(0]  *  square (tow_data [ Ij /6 . 0 ) ; 

wave  =  2 .  85*d.ock_data  [1]  *dock_data(2]  *square  (tow_data  [1  ] )  *1.2; 

wind  =  dock_data [ 4 ] *G .004*square (tow  data [i ] +tow_data [2 3 ) *dock_aata f 3 ] 

resistance  =  friction  -r  wave  +  wind; 

/*  save  data  for  report  */ 
resist_dat  [0]  =*wind; 

wave_height (tow_data(23 , &resist_dat (1) ) ; 
resist_dat [2]=wave; 
zosist_dat (3]=friction; 

resist_dat (4 ] =0 . 0;  /*  no  propeller  resistance  */ 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data,  tow_data { 1 ] ,  resistance, &haw_res) ; 

/*  compute  total  resistance  */ 

♦tension  =  resistance  haw_res; 

/************************************************************/ 

/*  display  results  */ 

/**************************************■,****+****************/ 

/*  draw  background  and  border  */ 

draw_window  (startrow,  started,  endrow,  ended,  DOUBLE,  REV_VID)  ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, header, REV_VID) ; 

/*  write  labels  */ 
for  (i=0;  i<15;  i++) 

write_string(startrow+4+i, startcol+3, label (i] , REV_VID) ; 

/***********************/ 

/*  write  data  */ 

/***********************/ 

/*  drydock  name  */ 

write_string (startrow+4 , start col+3+st rlen (label (0] ) +1 , name, REV_VID) ; 
sprintf (string, "%7 . 2f", fl) ;  /*  fl  */ 

write_string (startrow+6, startcol+3+strlen (label [5] ) , string, REV_VID) ; 
sprintf (string,  "%7.2f",  dock_data(l] ) ;  /*  f2  */ 

write_string(startrow+7, startcol+3+strlen (label (5) ) , string, REV_VID) ; 
sprintf (string,  "%7 . 2f",  dock__data (3) ) ;  /*  f3  */ 

write_string(startrow+8, startcol+3+strlen (lab»l (5) ) , string, REV_VID) ; 
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sprintf (string, "%7. Of", dock_data(0) ) ;  /*  wetted  surface  area  */ 

write_string(startrow+9, startcol+3+strlen (label (5) ) , string,  REV_VID) ; 

sprintf (strirg, "%7. Of",  dock_data(2] ) ;  /*  below  waterline  cross  sect  */ 

write_string (startrow+ll,  startcol+3+strlen (label (5] ) , string, REV_VID) ; 

sprintf (string,  "%7 . Of ",  dock_data ( 4] ) ;  /*  above  waterline  cross  sect  */ 

write_string(startrow+12,  startcol+3+strlen ( label 1 5) ) , string, REV_VID) ; 

sprintf (string, "%7. Of", friction) ;  /*  frictional  resistance  */ 

write_string(startrow+14,  startcol+3+strlen (label ( 5] ) , string, REV_VIb) ; 

sprintf  (string, "%7 . Of ",  wave) ;  /*  wave-forming  resistance  */ 

write_string (start row+15,  startcol+3+strlen (label ( 5] ) , string, REV_VID) ; 

sprintf (string, "%7 . Of ",  wind) ;  /*  wind  resistance  */ 

write_string (startrow+16, startcol+3+strlen (label (5) ) , string, REV_VID) ; 

sprintf (string,  "%7 . Of ", haw_res) ;  /*  hawser  resistance  */ 

write_string(startrow+17, startcol+3+strlen (label (5) ) , string, REV_VID) ; 

sprintf (string, "%7. Of", resistance) ;  /*  total  resistance  */ 

write_string(startrow+18,  startcol+3+strlen (label (5) ) , string,  REV_VID) ; 

/*  write  units  */ 

write_string(startrow+9, endcol-6,  "sq  ft",REV_VID) ; 
write_string(startrow+Il,  endcol-6, "sq  ft",REV_VID) ; 
write_string (startrow+12, endcol-6, "sq  ft",REV_VID) ; 
for  (i=0;  i<5;  i++) 

write_string (startrow+14+i,  endcol-6, "lbs" , REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause (startrow, startcol, endrow, ended, footer [4] , REV  VID) ; 


} 

/a*************************************************************** 
This  function  computes  the  square  of  a  number. 
*****************************************************************/ 
float  square (x) 
float  x; 

( 

return  (x*x) ; 

} 

/**************************************************************** 
This  function  gets  the  user's  input  for  the  data  requested 
in  the  function  get  hull_cond().  Uses  screen_getstring ( )  for 
screen  I/O.  Some  data  checking  is  performed  for  each  data  type. 

*****************************************************************/ 

void  get_dock_data (i,  row,  col,  data) 

int  i; 

int  row; 

int  col; 
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float  *data; 

( 

int  nbr; 

/* 

required  arg  for  stofa 

*/ 

int  status; 

/* 

takes  return  value  for  stofa 

*/ 

char  string (24]; 

/* 

input  string 

*/ 

char  textl (39),  text2(39); 

/* 

error  message  text 

*/ 

int  j,  k; 

/* 

counters 

*/ 

cursor  on(); 

/* 

turn  on  cursor 

*/ 

goto_xy (row, col) ; 

/* 

move  cursor  to  start  of  box 

*  ! 
i 

/*  get  user  input  */ 

screen_getstrg(i, row,  col,  string, NORM_VID,  input) ; 

if  (i  ! =  5) 
r 

/*  check  for  valid  numeric  input  */ 
for  (k=0;  k<strlen (string) ;  k++) 

{ 

if  (  string (k)=='  . '  ) 

( 

if  (string (k+1 ]=='.' ) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 

display_error (ERROR, textl , "  " ) ; 

vid_box (row, col, 7) ; 

get_dock_data (i, row, col, data) ; 

return  ; 

) 

} 

else  if  (string[k]<' 0'  ||  string (k) >' 9' ) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " )  ; 
vid_box(row, col,  7) ; 
get_dock_data (i, row, col, data)  ; 
return  ; 

) 

> 

if  input  valid  numbers  only,  convert  string  to  float  */ 
status  »  stofa (string, &data [i] , &nbr, 1) ; 

> 

else  if  (i“5) 

( 

strcpy (response, string)  ; 

} 

/*  check  data  for  consistency  */ 
if  (i==l)  /*  check  towing  speed  */ 

{ 

if  (data ( i] <=0 . 0  ||  data ( i] >12 . 0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl ,  "  ") ; 
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vid_box(row, col, 6> ; 
get_dock_data (i, row, col, data) ; 
return  ; 

) 

else  if  (data [i] >10 . 0  data ( i) <=12 . 0) 

{ 

sprintf (textl, "Planned  tew  speed  is  higher  than") ; 
sprintf  (text2,  "normally  recommended")  ; 
display_error  (WARN.  textl,  text2)  ; 

} 

> 

if  (i==2)  /*  check  wind  speed  */ 

{ 

if  (data(i)<0) 
l 

sprintf (textl, "Invalid  entry;  try  again"); 

di3play_error (ERROR,  textl,  "  ")  ; 

vid_box (row,  col,  6) ; 

get_dock_data (i,  row,  col,  data) ; 

return  ; 

) 

else  if  (data(i]>48 .0)  /*  ???  is  thi 3  true  with  P-M  spectrum  ???  V 

( 

sprintf (textl, "Outside  range  of  Fig.  G-2"); 

sprintf (text2, "=>piease  enter  new  wind  speed<="); 

display_error (ERROR, textl, text2) ; 

vid_box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 

} 

} 

if  (i==3)  /*  check  wind  direction  */ 

{ 

if  (data[il<0) 

{ 

sprintf (textl , "Use  only  positive  angles"); 
display_error (WARN,  textl,  "  ") ; 
data(i)  =  -data(i); 

> 

else  if  (data ri] >180 . 0  SS  data [i] <360 .0) 

{ 

sprintf (toxtl, "Use  angles  between  0  and  ISO"); 
display_  irror (WARN,  textl,  "  ") ; 
data(i)  =  360.0  -  data(ij; 

} 

else  if  (data{i]>70.0  &&  data(i]<110.0) 

( 

sprintf (textl , "No  extreme  tension  data  for  beam  seas"); 

sprintf (text2, "==>  use  angles  <  70  or  >  110  <=="); 

display_error (ERROR,  textl ,  text2 )  ; 

vid_box (row, col, 6) ; 

get_dock_data (i, row, col, data) ; 

return  ; 

} 
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else  if  (daca(i) >360.0) 

{ 

sprintf (textl, "Invalid  entry:  try  again'); 

display_error  (ERROR,  text!,  "  ")  ; 

vid_box  (row,  col ,  <5)  ; 

get_dock_data (i, row, col,  data)  ; 

return  ; 

} 

} 

if  (i=4)  /*  check  hull  condition  */ 

( 

if  (data[i)<0.0  I  I  data (i] >10 . 0) 

{ 

sprintf  (textl,  "Invalid  entry;  try  again"); 

dispiay_error (ERROR,  textl,  "  ")  ; 

vid_box (row, col, 6) ; 

get_dock_data (i,  row, col, data) ; 

return  ; 

} 

} 

cursor_off () ; 
goto_xy (0,0); 

} 

/*********ft***************-**********«e******************************** 

This  function  estimates  the  displacement  of  floating  drydocks 
and  barges  based  on  the  assumptions: 

Cb  =  0.8 
Cx  =  0.9 

********* ******K**************************x*******w*******************/ 

void  est_disp (i, data,  tow_data) 
int  i; 

float  *data; 
float  *tow_data; 

( 

float  length, beam, draft; 

float  coefb»0.8;  /*  block  coefficient  */ 

float  coafx=0.9;  /*  wax  section  coefficient  */ 

if  (i=.=o)  /*  drydoc):  */ 

( 

length*data [ 5 ] ; 
beam»data [6] ; 

draft  *  data (2] / (coefx*beam) ; 

tow_data(0]  =  length*beam*draft*coefb/35 . 0; 

} 

else  /*  barge  */ 

( 

length^data ( 0 ] ; 
beam=data (1] ; 
draft^data (3) ; 

tow_data(0]  =  length*beam*draft *coefb/35 . 0; 

} 
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} 


/**************************************************************** 

This  function  computes  the  mean  tension  of  a  floating 
drydcck  and  it3  towing  hawser.  It  duplicates  the  computations 
in  the  function  get_dock_resist () ,  but  is  intended  as  a  stand 
alone  function  for  use  by  other  program  modules. 
***********^*****************************************************/ 
void  dock_resist (tug_data, dock_data,  cow_data,  tension) 
float  *tug_data; 
float  *dock_data; 
float  *tow_data; 
float  *tension; 

{ 

float  fl; 
float  friction; 
float  wave; 
float  wind; 
float  resistance; 
float  haw_res; 

/ *  convert  hull  condition  to  fl  coefficient  */ 
fl  =  tow_data (4 ]/10.0  *  (0.8  -  0.45)  +  0.45; 

/*  compute  resistance  */ 

friction  =  fl  *  dock_data(01  *  square (tow_data [ 1 ) /6 . 0) ; 

wave  =  2 . 85*dock_data [1] *dock_data (2] *3quare (tow_data (1] ) *1 .2; 

wind  =  dock_data [4] *0 .C04*square (tow_data [l]+tow_data [2] ) *dock_data [3] 

resistance  =  friction  +  wave  +  wind; 

/ *  compute  hawser  resistance  */ 

hawser_resist (tug_data,  tow_data(l] , resistance, &haw_re3) ; 

/*  compute  total  resistance  */ 

♦tension  =  resistance  +  haw  res; 


/**************************************************************** 
This  function  retrieves  tow  data  from  a  user  specified  file. 
*******************************************  *****  ****************  j 
get_dock_file (startrow,  started,  endrow, endcol, hull_no, 
dock_data, tow_data) 
int  startrow, startcol; 
int  endrow, endcol; 
char  *hull_no; 
float  *dock_data; 
float  '!tow_data; 

( 

FILE  *in; 

char  fname(13); 

char  inline (81} ; 

char  textl (39] , text2 [39] : 

int  i, j, status, nbr; 
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float  array (2); 
ir.t  start; 

/*  write  herder  */ 

start  *=  (endcol-startcd-strlen  (labell  ( 1)  )) /2  +  started; 
write  _string(startrow-*-8,  start,  labell  (1]  ,REV_VID)  ; 

/*  write  prompt  */ 
for  ( i=0 ;  i<2;  i++) 

{ 

start  =  ;  tartcol+3; 

weite_string (startrow+10+i,  start, labell [i+2]  ,REV_'/ID)  ; 

} 

vid_box (startrow+ll, start+strlen (labell (3) ) , 9) ; 
sprintf (textl, "Type  •'  Q'  to  quit"); 

start  =  (endcol-startcd-strlen (textl) ) /2  +  started; 
write_string (endrow-3 , start, textl ,  REV_VID) ; 

get_fname (6, 1, startrow+ll, startcol+3+atrlen (labell (3) ) , fname) ; 

/*  check  for  quit  option  */ 
if  (fname (0]=='  Q' ) 

{ 

cursor_of f () ; 
goto_xy (0,0); 
return  (-1) ; 

) 

in=f open (fname, "r") ; 
if  (in==NULL) 

{ 

sprintf  (textl,  "Can' t  open  file  %s", fname); 
display_error (ERROR, textl , "  " ) ; 

clear  (startrow+8,  atartco.l+1,  endrow-3,  endcd-1 ,  REV_VID) ; 
3tatus=get_dock_f  ile  (startrow,  started,  endrow,  ended,  hull_no, 
dock_data, tow_data) ; 

return  (0) ; 

) 

else 

( 

/*  read  data  from  file  */ 
fgets (inline, 81, in) ; 
strstrip (inline) ; 

/*  test  for  valid  tow  file  */ 

if  (! (strnemp (inline, " !  Tow  data  file", 15))) 

( 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
strsl rip (inline) ; 

/*  test  if  drydoek  file  */ 
if  (strnemp (inline, "DRYDOCK" , 7) ) 

( 

sprintf (textl , "%s  is  not  a", fname); 
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sprintf (text2, "drydock  data  file!"); 
display_error (ERROR, textl,  text2) ; 

clear (startrow+8, startcol+1, endrow-3, endcol-1, REV_VID) ; 
status=get_dock_f  lie  (startrow,  started,  endrow,  ended,  hull_no, 
dock  data, tow_data) ; 
return  (0)  ; 

) 

/*  get  hull  number  */ 
fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
str strip (inline) ; 
strnepy (hull_no, inline,  24 ) ; 
strstrip (hull_no) ; 

/*  read  remaining  tow  data  */ 
for  (i=0;  i<5;  i++) 

{ 

fgets (inline,  81,  in) ; 
fgets (inline, 81, in) ; 
status=stofa (inline, array, &nbr, 1) ; 
tow_data (i] “array (0]  ; 

> 

/*  read  drydock  data  */ 
for  (i=0;  i<7 ;  i++) 

{ 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 

3tatus=stofa  (inline,  array,  Jlnbr,  1)  ; 
dock_data ( i ) =ar ray ( 0 )  ; 

} 

fclose (in) ; 

} 

else 

< 

sprintf (textl, "%s  is  not  a  tow  data  f ile ! " , fname) ; 
display_error (ERROR, textl,  "  ")  ; 

clear (startrow+8, startcol+l , endrow-3, endcol-1, REV_VID)  ; 
status“get_dock_f lie (startrow, startcol,  endrow,  endcol,  hull_no, 
dock__data,  tow_data)  ; 
return  (0) ; 

) 

) 

return  (0)  ,- 

) 

/********^***********************************#*********A*****h*  x* 

This  function  writes  the  tow  data  for  floating  drydocks  to 
a  user  specified  file. 

a*****************************************************-***********/ 
void  save_dock_file (startrow, startcol, endrow, endcol, hull_no, 
dock_data, tow_data) 
int  startrow,  startcol,  endrow,  ended; 


216 


char  *hull_no; 
float  *dock_data; 
float  *tow_data; 

{ 

FILE  *out; 
char  f name ( 13 ] ; 
char  etring(2o]; 
char  textl (39); 
int  start; 

/*  prompt  for  file  name  */ 
start  =  startcol  +  3; 

write_string(endrow-2, start, footer [6] , REV_VID) ; 
vid_box (endrow-2, start+strlen (footer(6J )+4, 9) ; 

get_fname  (6, 1,  endrow-2..  start+strlen  (footer  (  6] )  +4,  fname)  ; 
out=fopen (fname, "w") ; 

if  (out==NULL) 

{ 

sprintf (textl, "Can' t  open  file  %s",  fname); 
display_erroi  ERROR, textl, "  "); 

save_dock_f ile (startrow, startcol, endrow, endcol, hull_no, 
dock_data, tow_data) ; 

return; 

) 

else 

{ 

/*  write  tow  data  to  file  */ 
fprintf (out,  " !  Tow  data  file\n"); 
fprintf (out,  " !  Tow  type:\n")r 
fprintf (out, "DRYDOCK\n") ; 

fprintf (out, " !  Hull  number:\n"); 
fprintf (out,  "%s\n",  hull_no) ; 

fprintf (out,  " !  Estimated  displacement : \n" ) ; 
sprintf (string,  lf\n",  tow_data (0] ) ; 
fprintf (out, "%s", string)  ; 

fprintf (out, " !  Tow  speed  (kts):\n"); 
sprintf (string, "%-.l£\n",  tow_data(l] ) ; 
fprintf  (out, "%s",  string) ; 

fprintf (out, " !  Wind  speed  (kts):\n"); 
sprintf (string, "%-.2f\n",  tow_data (2) ) ; 
fprintf (out, "%s",  string) ; 

fprintf (out, " !  Relative  wind  dir:\n"); 
sprintf (string, "%-.2f\n", tow_data(3) ) ; 
fprintf (out, "%s",  string) ; 

fprintf (out, " !  Hull  condition : \n" ) ; 
sprintf (string, "%- . 2f\n",  tow_data (4 ) ) ; 
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fprintf (out, "%s",  string)  ; 

/*  write  drydock  data  to  file  */ 
fprintf (out, " !  Wetted  surface  area:\n”); 
sprintf (string, "%-.0f\n", dock_data(0] ) ; 
fprintf (out, "%s", 3tring)  ; 

fprintf (out, " !  Form  factor  (f2):\nH); 
sprintf (string, "%-.2f\n", dock_data{l] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Cross-sectional  area  below  waterline  (B) :\n") 
sprintf (string, "%-.2f\n",  dock_data[2] )  ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Wind  coefficient  (f3):\n"); 
sprintf (string, 2f \n",  dock_data [3] ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Cross-sectional  area  above  waterline  (C):\n") 
sprintf (string, "%-.Of\n",  dock_data(43 ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Drydock  length:\n"); 
sprintf (string, lf\n", dock_data(5] ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Drydock  besm:\n") ; 
sprintf (string, "%- . If \n",  dock_data ( 6) ) ; 
fprintf (out,  "%s",  string)  ; 

} 

fclose (out) ; 


/**********************************  >,'*X********************X*******X********** 

File:  barge. c 

Author:  Todd  J.  Peltzer 

Last  update:  3  May  1989 

This  file  contains  the  functions  whict;  support  computation  of  the 
resistance  of  floating  drydocks  and  barges. 


Functions : 

get_barge_resist ( ) 
barge_resist () 
get_barge_data ( ) 
barge_suminary  ( ) 
save_barge_file {) 
get_barge_f ile ( ) 

*********************************************************** V***********X***X*/ 

♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "keydef.h" 

♦include  "video. h" 

♦define  RAKE  0 
♦define  SHIPSHAPE  1 
♦define  SQUARE  2 

void  get_barge_data  ( )  ,  barge_summary ( ) ; 
void  barge_resist () , save_barge_file () ; 
float  square (); 

typedef  struct 

{ 

int  3tartcol; 
int  ended; 

}  data_box; 

static  data_box  input  (]  «• 

{ 


{42,55}, 

/* 

name  (dimension) 

*/ 

{40,53}, 

/* 

name  (summary) 

*/ 

{46,52}, 

/* 

hull  length 

*/ 

{46,52}, 

/* 

beam 

*/ 

{46,52}, 

/* 

hull  depth 

*/ 

{46,52}, 

/* 

draft 

*/ 

{46,52}, 

/* 

deckhouse  length 

*/ 

{46,52}, 

/* 

deckhouse  width 

*/ 

{46,52}, 

/* 

deckhouse  height 

•7 

{54,58} 

/* 

yes/no  choice 

*/ 

}; 


static  char  response [4]; 

static  char  *  footer (]  = 

( 

"Please  enter  data.", 
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"Is  all  data  correct?  (yes/no) : 
"FI  Name  F2  Hull  F3  Tow", 

"F4  Wind  F5  Rel", 

"  Press  INS  to  continue  ”, 

"  Save  data  to  file?  (yes/no) : 
"  Enter  tow  file  name:  " 


static  char  *label{]  = 

1 

"Name  or  hull  no:", 
"Hull  dimensions", 

"  Length : " , 

"  Beam:", 

"  Depth:”, 

"  Draft:", 

"Deckhouse  dimensions", 
11  length:", 

"  Width:", 

”  Height:", 

"End  shape:" 

) ; 


static  char  *labell[]  - 

{ 

"Name  or  hull  no:", 

"Data  corresponding  to  Table  G- 

"  fl:", 

"  f2 : 

"  f3 

"  Wetted  surface  area:", 

"  Cros3  sectional  area", 

"  Below  waterline:", 

"  Above  waterline:", 

"Resistance", 

"  Frictional:", 

"  Wave_forming:", 

"  Wind : " , 

"  Hawser:", 

"  Total:" 


} ; 


static  char  *menu(]  » 

( 

"Rake  ended  ", 
"Ship  ended  ", 
"Square  ended" 

} ; 


static  char  *label2(]  =• 

( 

"Options" , 

"Retrieve  File", 

"Enter  name  of  tow  file", 


to  retrieve  (S  char  max) : 


>; 


static  char  *menul(j  = 

{ 

"1)  Enter  new  data 
"2)  Edit  existing  data'', 
"3)  Retrieve  data  file" 


static  int  startrow=2; 
static  int  3tartcol=29; 
static  int  endrow=22; 
static  int  endcol=60; 

static  char  ‘header (]  = 

{ 

"BARGE  DATA", 

"DATA  SUMMARY", 
"RESISTANCE" 

}; 


extern  float  barge_res ( 6]  .  resist_dat [ 5} ;  /*  arrays  for  report  data  */ 

j  ******A*************-A:***H:  **★•***★  ***★*■*★***★★★★*★****■****★****★*■****★**★★★*** 

This  function  prompts  the  user  for  the  dimensions  of  the  barge  hull 
and  deckhouse  (and  allows  editing),  then  prompts  for  the  hull  condition, 
the  tow  speed  and  wind  speed,  prints  a  summary  of  input  data  (and  allows 
editing) ,  then  computes  the  towing  resistance  of  the  barge  and  prints 
a  summary. 

***********************************************X*****************************/ 

get_barge_resist (flag,  name,  tug_data, tow_data, barge_data, tension) 

int  *flag; 

char  ‘name: 

float  *tug_data; 

float  *tow_data; 

float  *barge_data;  /*  hull  dim  (4) ,  dkhs  dim  (3) ,  end  shape  */ 

float  ♦tension; 
r 

int  row,  col,  i,  key; 
int  start, choicel, status; 
char  string (81); 
char  textl (39) , text2 (39) ; 


float 

vtow; 

/* 

tow  speed  */ 

float 

vwind; 

/* 

wind  speed  */ 

f  ioat 

fl, r2, f3; 

/* 

resistance  coefficients  */ 

float 

wet  surf; 

/* 

wetted  surface  area  */ 

float 

uw  xsect; 

/* 

underwater  cross-sectional  area 

*/ 

float 

abv  xsect; 

/* 

abovewater  cross-sectional  area 

*/ 

float 

hlength; 

/* 

hull  length  */ 

float 

beam; 

/* 

hull  beam  */ 

float 

depth; 

/* 

hull  depth  */ 

float 

draft; 

/* 

full  load  draft  */ 

float 

dlength; 

/* 

deckhouse  length  */ 
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float  width; 
float  height; 
int  end_shape; 
float  friction; 
float  wave_resist; 
float  wind_resist; 
float  resistance; 
float  haw_res; 

if  ( ! flag (1) ) 

{ 

/*  initialize  data  */ 
for  (i=0;  i<8;  i++) 
barge_data(i]  =  0.0; 

} 

!*  clear  background  */ 

clear  (startrow+l,  startcd+1,  endrow-1, endcol-1, REV_VID) ; 

/*  write  header  */ 

write_header  (startrow,  started,  ended,  header  (0]  ,  REV_VTD)  ; 

if  (!flag[l]  &&  !flag(2])  /*  enter  new  data  */ 

{ 

clear (startrow+5, startcol+1, endrow-3, endcol-1, REV_VID) ; 

} 

else  if  (flag(l]  &&  ! flag  12])  ;  /*  edit  existing  data  */ 

else  if  (flag(2J)  /*  retrieve  data  from  file  */ 

{ 

status=get_barge_file (name, barge_data, tow_data) ; 
if  (status<0) 

{ 

cursor_off () ; 
flag [23=0; 
return  (-1) ; 

> 

est_disp { 1, barge_data, tov_data) ; 

} 

clear (startrow+5, startcol+l, endrow-3, endcol-1, REV_VID) ; 

/*  write  labels  */ 
for  (i=0;  i<10;  i++) 

write_string(startrow+5+i, startcol+5,  label (i] , REV_VID) ; 
write_string(startrow+16,  startcol+5, label (10] , REV_VID) ; 

/■*  write  units  */ 
for  (i=0;  i<4;  i++) 

writers tr ing (startrow+7+i, endcol-5, "f t" , REV_VID) ; 
for  (i=0;  i<3;  i++) 

write_string(startrow+12+i, endcol-5,  ''ft", REV_VID) ; 

if  (flag(l)  ||  flag(2])  /*  display  data  */ 

( 

write_string (startrow+5,  startcol+5+strlen  (label  [0] +2,  name,  REV  VID) 


/*  deckhouse  width  */ 
/*  deckhouse  height  */ 


/*  barge  data  does  nor.  exist  */ 
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start=startcol+5+strlen (label (6) ) +1; 


for  (i=0;  i<4;  i++) 

{ 

sprintf (string, "%7 . If ", barge_data (i) ) ; 
write_string(startrow+7+i, start,  string,  REV_VID) ; 

} 

for  (i=0;  i<3;  i++) 

{ 

sprintf (string,  "%7 . If " , barge_data [i+4 ) ) ; 
write_string(startrow+12+i, start,  string, REV_VID) ; 

} 

if  (barge_data[7]  ==  RAKE) 

( 

write_string(startrow+16, start+1, menu (0] , REV_VID) ; 

) 

else  if  (barge_data (7]  ==  SHIPSHAPE) 

{ 

write_string(startrow+16, start+l, menu [1] , REV_VID) ; 

} 

else  if  (barge_data [7]  ==  SQUARE) 

( 

write_string (startrow+16,  start+1,  menu (2) , REV_VID) ; 

} 

} 

else  if  (!flag(l)  &&  !flag(2))  /*  enter  new  data  */ 

{ 

/*  write  footer  */ 

start  =  (endcol-starrcol-strlen (footer (0) )) /2  +  startcol? 
write_string(endcol-2,  start,  footer(O) ,REV_VID) ; 

/******************************************/ 

/*  get  data  */ 

/******************************************/ 

/*  get  name  */ 

vid_box (startrow+5, startcol+5+strlen (label (0) ) +1, 14) ; 

get_barge_data (0,  startrow+5, start col+5+strlen (label (0) ) +1,  name,  barge_data) 
for  (i=0;  i<15;  i++) 

write_char (startrow+5, startcol+5+strlen (led>el [0] ) +l+i, '  ' , REV_VID) ; 
write_string (startrow+5, start col+5+strlen (label (0) ) +2, name, REV_VID) ; 

3tart’»3tartcol+5^  strlen  (label  (6) )  +1; 

/*  get  hull  length  */ 
vid_box (startrow+7,  start,  7)  ; 

get_barge_data (2,  startrow+T, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+7, start+i,  '  '  , REV_VID) ; 
sprintf  (string,  "%7  .  If",  barge__data  (0] )  ; 
write_string (startrow+7, start, string, REV_VID) ; 

/*  get  beam  */ 

vid  box (startrow+8, start, 7) ; 
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get_barge_data (3,  startrow+8, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+8 ,  start+i,  '  ' ,REV_VID) ; 
sprintf (string, "%7 . If " , barge_data (1 ) ) ; 
write_string(startrow+8,  start,  string, R£V_VID) ; 

/*  get  hull  depth  */ 
vid_box (startrow+9, start, 7) ; 

get_barge_data (4, startrow+9, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+9,  start+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If", barge_data (2] ) ; 
write_string (startrow+9,  start,  string,  R£V_VID) ; 

/*  get  draft  */ 

vid_box (startrow+10, start, 7) ; 

get_barge_data (5,  startrow+10, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+10, start+i, '  '  ,  REV_VID) ; 
sprintf (string, "%7 . If ", barge_data (3) ) ; 
write_string (startrow+10,  start, string, REV_VID) ; 

/*  get  deckhouse  length  */ 
vid_box (startrow+12,  start,  7 )  ; 

get_barge_data (6,  startrow+12,  start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+12,  start+i,  '  ' ,  REV_VID) ; 
sprintf (string, "%7 . If ", barge_data {4] ) ; 
write_string (startrow+12,  start,  string,  REV_VID) ; 

/*  get  deckhouse  width  */ 
vidjbox (startrow+13, start, 7) ; 

get_barge_data (7, startrow+13, start, name , barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+13,  start+i,  '  ' , R£V_VID) ; 
sprintf (string, "%7.1f",barge_data(5] ) ? 
write_string (startrow+13, start, string, REV_VID) ; 

/*  get  deckhouse  height  */ 
vid_box (startrow+14 , start, 7) ; 

get_barge_data (8 , startrow+14 ,  start,  name ,  barge_data) ; 
for  (i»0;  i<7;  i++) 

write_char (startrow+14,  start+i, '  '  ,  REV_VID) ; 
sprintf (string,  "%7 . If",  barge_data (6} ) ; 
write_string(startrow+14,  start,  string,  REV_VID) ; 

/*  get  end  shape  */ 

start  *>  startcol+5+strlen  (label  [8  ] )  +7; 

barge_data(7]  =»  popup (menu,  "", 3,  startrow+15,  start, SINGLE, REV_V] D, 0) 

if  (barge_data ( 7]  ■■«  RAKE) 

( 

write_string (startrow+16,  start+l,  menu (0) ,  REV_VID) ; 

) 
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else  if  (barge_data [7]  ==  SHIPSHAPE) 

{ 

write_string (startrow+16, start+1, menu { 1) , REV_VID) ; 

} 

else  if  (barge_data [7 )  ==  SQUARE) 

{ 

write_string (startrow+16, start+1, menu (2) , REV_VID) ; 

) 

) 

/*****************************************************************/ 
/*  prompt  user  for  confirmation  of  data;  give  edit  option  */ 

/*****************************************************************/ 
start  =  startcol+3; 

write_string(endrow-2, start, footer (1) ,  REV_VID) ; 
vid_box (endrow-2, start+strlen (footer ( 1) )  ,  4)  ; 

get_barge_data (9, endrow-2 , start+strlen (footer [1 ) ) , name,  barge_dat.a) ; 
/*  test  if  data  correct  */ 

if  (  response (0] !=' y'  &&  response (0) !=' Y'  &&  response (0 ]! =NULL  ) 

{ 

/*  erase  previous  message  */ 
start  ■=  startcol+3; 

for  (i=0;  Kstrlen (footer [1] ) +4 ;  i++) 

write_char (endrow-2, start+i, '  ' , REV_VID) ; 

/*  write  quit  message  */ 

start= (endcol-startcol-strlen (footer (4 ))) /2  +  started; 
write_string (endrow, start, footer (4) , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 
write_string (startrow+5, startcol+2, "FI" , N0RM_VID) ; 
write_string(startrow+7, startcol+2, "F2" , N0RM_VID) ; 
write_string(startrow+8, startcol+2, "F3" , N0RM_VID) ; 
write_string (startrow+9, startcol+2, "F4" , N0RM_VID) ; 
write_string (startrow+10, st.irtcol+2,  "F5",  N0RM_VID) ; 
write_string (startrow+12, startcol+2, "F6", N0RM_VID) ; 
write_string (startrow+13, startcol+2, "F7", N0RM_VID) ; 
write_string(startrow+14, startcol+2, "F8", N0RM_VID) ; 
write_string (startrow+16, startcol+2 , "F9” , N0RM_VID) ; 

/*  move  cursor  to  FI  highlight  */ 
cursor_on () ; 

goto_xy (startrow+5, startcol+2) ; 

/*  get  user's  choice  */ 
while  (1) 

( 

start“startcol+5+strlen (label (6) ) +1; 
key=get_special () ; 

/***********************/ 
if  (key«-Fl)  /*  hull  name  or  number  */ 

{  /***********************/ 

vid  box (startrow+5, startcol+5+strlen (label (0) ) +1, 14 ) ; 
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get_barge_data (0 , startrow+5 ,  startcol+5+strlen (label [0] ) +1 , name, barge  data) 
for  (i=0;  i<l 5;  i++) 

write_char (startrow+5, startcol+5+strien (label (0) ) +l+i, '  '  , REV_VID) ; 

write_string (startrow+5,  startcol+5+srrlen (label [0] ) +2, name,  REV_VID) ; 
curaor_on () ; 

goto_xy (startrow+5,  startcol+2) ; 

}  /***************/ 

else  if  (key==F2)  /*  hull  length  */ 

{  /***************/ 
vid_box (atartrow+7,  start,  7)  ; 

get_barge_data (2, atartrow+7 , atart, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (atartrow+7 ,  atart+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If", barge_data (0) ) ; 
write_string (atartrow+7,  atart,  string, REV_VID) ; 
curaor_on () ; 

goto_xy (atartrow+7,  atartcol+2) ; 

/*  check  deckhouse  length  for  consistency  tith  this  input  */ 
if  (barge_data(4]>barge_data(0) )  /->  is  greater  than  hull  length  */ 

{ 

aprintf (textl , "Decknouae  is  longer  tno”  hull"); 
aprintf (text2, "==>  please  try  again  <=="); 
diaplay_error (ERROR, textl , text2 ) ; 
vid_box (startrow+12,  atart,  7)  ; 

get_barge_data(6,  atartrow+12,  atart, name , barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (atartrow+12,  start+i,  '  ' , REVJ/ID) ; 
aprintf (string, "%7 . If ", barge_data (4 ] ) ; 
write_atring (ctartrow+12, start, string, REV_VID) ; 
cursor_on () ; 

goto_xy (atartrow+12, startcoi+2) ; 

} 

}  /**«****»/ 

else  if  (key==F3)  /*  beam  */ 

(  /********/ 

vid_box (atartrow+8,  atart,  7) ; 

get_bargc_data (3, atartrow+8, start, name, barge_data) ; 
for  (i=0;  i <7 ;  i++) 

write_char (atartrow+8 , atart+i, '  ' , REV_VID) ; 
aprintf (string, "%7 . If", barge  data ( 1 ) ) ; 
write_atring (atartrow+8,  atart,  string,  REV_VID) ; 
curaor_on ( ) ; 

goto_xy (atartrow+8,  atartcol+2)  ; 

/*  check  deckhouse  width  for  consistency  with  this  input  */ 
if  (barge_data ( 5) >barge_data ( 3 ) )  /*  is  greater  than  beam  */ 

( 

aprintf (textl, "Deckhouse  is  wider  than  beam"); 
sprintf  (text2,  "»*■>  please  try  again  <=="); 
display _error (ERROR,  textl,  text2) ; 
vid_box (startrow+13,  start,  7)  ; 

get_barge_data (7,  startrow+13,  start, name , barge_data) ; 
for  (i«0;  i<7;  i++) 
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write_char (otartrow+13,  start+i, '  '  ,  REV_VID) ; 

sprintf (string, "%7 . If", barge_data (5) ) ; 

write_string(startrowt-13,  start,  string, REV_VID)  ; 

cursor_cn () ; 

goto_xy (startrow+13, startcol+2) ; 

} 

)  /*•*************/ 

else  if  (key==F4)  /*  hull  depth  */ 

{  /**************/ 

vid_box (startrow+9, start,  7) ; 

get_barge_data(4,  startrow+9, start, name, barge_data) ; 
for  (i=0;  i<7;  i++) 

write  char (startrow+9, start+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If " ,  barge_data (2 ] ) ; 
write_string (startrow+9, start, string,  REV_VID) ; 
cur3or_on () ; 

goto_xy (startrow+9,  ctartcol+2)  ; 

}  /*********/ 

else  if  (koy^^FS),  /*  draft  */ 

{  /******»*+/ 

vid_box (startrow+lO,  start,  7)  ; 

g«t__barge_data  (5, startrow+10,  start, name, barge_data) ; 
for  (i“0;  i<7;  i++) 

write_char (startrow+10,  start+i, '  ' , REV_VID) ; 
sprintf (string, "%7 . If ", barge_data {3] ) ; 
write_string (startrow+10, start, string, REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+10, startcol+2) ; 

}  /********************/ 

else  if  (key==F6)  /*  deckhouse  length  */ 

(  /********************/ 

via  box (startrow+12 , start , 7 ) ; 

get_barge_data (6, startrow+12, start , name , barge_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+12, start+i,  '  ' , REV_VID) ; 
3printf (string, "%7 . If ",  barge_data [4 ] ) ; 
write_string (startrow+12, start, string, REV_VID) ; 
cursor_on () ; 

goto_xy (startrow+12, startcol+2> ; 

}  /**«***■»***  *********  / 

else  if  (key=“F7)  /*  deckhouse  width  */ 

{  /****-*[*********A*x-V*/ 

vid_box (startrow+13, start,  7) ; 

get_barg«_data (7, startrow+13, start, name, barge_data) ; 
for  (i»0;  i<7;  i++) 

write_char (startrow+13, start+i,  '  ' , REV_VID) ; 
sprintf (string, "%7 . If ",  barge_data (5} )  ; 
write_string (startrow+13,  start, string, REV_VID) ; 
cursor_on ( ) ; 

goto_xy (startrow+13,  startcol+2) ; 

}  /********************/ 

else  if  (key»«“F8)  /*  deckhouse  height  */ 

{  /**************  **  ***  */ 

vid  box (startrow+14 , start , 7 ) ; 
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get_barge_data (0,  startrow+14,  start, name,barge_data) ; 
for  (i=0;  i<7;  i++) 

writs_char (startrow+14, start+i, '  ' , REV_VID) ; 

3printf (string, "%7 -If",  barge_data (6) ) ; 
write_string (startrow+14,  start,  string,  REV_VID) ; 
cursor_on ( ) ; 

goto_xy (startrow+14,  startcol+2) ; 

}  /*************/ 

also  if  (key==F9)  /*  end  shape  '"/ 

(  /*************/ 

start  =  startcol+5+strlen (label [8] ) +7; 

barge_data(7]  =  popup (menu,  3, startrow+15, start, SINGLE, REV_VID, 0) 
if  (barge_data ( 7]  ==  RAKE) 

{ 

write_string (startrow+16, start+1, menu (0) ,  REV_VID) ; 

} 

else  if  (barge_data (7 ]  ==  SHIPSHAPE) 

{ 

write_3tring (startrow+16,  start+l,  menu (1) , REV_VID) ; 

) 

else  if  (barge_data (7 ]  ==  SQUARE) 

{ 

write_string (startrow+16,  start+1, menu (2) , REV_VID) ; 

} 


cursor_on ( ) ; 

goto_xy (startrow+16,  startcol+2) ; 

/*************/ 


else  if  (key==»INSERT)  /*  quit  edit  */ 

(  /*************/ 


/*  erase  function  key  highlights  */ 
write_string (startrow+5 ,  startcol+2,  " 
write_string(startrow+7, startcol+2, " 
write_string (startrow+8,  startcol+2, " 
write_string(startrow+9, startcol+2, " 
write_string (startrow+10, startcol+2, ' 
write_string (startrow+12,  startcol+2,  ' 
write_string(startrow+13,  startcol+2,  ' 
write_string (startrow+14,  startcol+2, ' 
write_string (startrow+16,  startcol+2, ' 


" , REV_VID) ; 

" , REV_VID ) ; 
”,  REV_VID) ; 

" , REV_VID ) : 
",REV_VID)  ; 
",  REV_VID) ; 
”, REV_VID) ; 
", REV_VID) ; 
",  REV  VID) ; 


/*  erase  quit  message  */ 

start  “  (endcol-startcol-strlen (footer (<])) /2  +  startcol; 
for  (i-0;  ikstrlen (footer (4 )) ;  i++) 

write  char (endrow,  start+i, 205, REV_VID) ; 
break; 

) 

) 

cursor_of f ( ) ; 

) 

else  /*  editing  not  required  */ 

( 

/*  erase  previous  message  */ 

start  =  startcol  +4; 

for  (i“0;  ikstrlen (footer ( 1 )) +4 ;  i++) 
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write_char (endrow-2,  start+i, '  '  ,REV_VID) ; 

} 

if  ( ! flag (1 }  &&  !flag(2]) 

{ 

/*******************************************/ 

/*  get  hull  condition  and  tow  data;  */ 

estimate  displacement  */ 

/*******************************************/ 

/*  use  same  functions  as  used  for  drydocks  */ 
get_hull_cond (tow_data) ; 

get_dock_towdata (tow_data) ; 

est_disp (1, barge_data, tow_data) ; 

} 

/************************************** ********  **************** f**/ 

/*  display  summary;  give  edit  option  */ 

/♦A**********************************************  >•****************/ 

barge_summary (barge_data, tow_data, name) ; 

/it******************************************-**********************/ 

/*  compute  barge  resistance  */ 

/****f**************************«*********************************/ 

vtow  =  tow_da  ta  ( 1  ] ; 
vwind  =  tow_data(2); 
hlength  *•  barge_data  [0]  ; 
beam  =  barge_data ( 1 ] ; 
depth  =  barge_data (2) ; 
draft  =  barge_data [3] ; 
dlength  *=  barga_data (4 ] ; 
width  =  barge_data [ 5]  ; 
height  =  barge_data [6] ; 
end_shape  =  barge_data ( 7] ; 

/*  determine  fl,  f2,  f3  */ 

fl  =  (tow_data (4J/10.0) *(0.8  -  0.45)  +  0.45;  /*  hull  condition  */ 

barge_res  (0]«*fl; 

if  (end_shape«“0  |  |  end_shape"l) 

{ 

f2  =  0.2;  /*  rake  or  ship-ended  */ 

} 

else 

{ 

f2  “  0.5;  /*  square-ended  */ 

) 

barge_res ( 1 ) =  f 2 ; 

f3  =  0.60;  /*  average  barge  value  per  Section  G-3.2  */ 

barge_res (2]«f3; 

/*  compute  frictional  resistance  */ 

wet_surf  «  (hlenath*beam)  +  2 . 0* (hlength+beam) *draft; 
barge_res  (3  ]  >«wet_surf ; 
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vtow  =  square (vtow/ 6 . 0) ; 
friction  =  fl  *  wet_surf  *  vtow; 
resist_dat {3] “friction; 

/*  compute  wave  resistance  */ 
uw_xsect  =  (beam*draft) ; 
barge_res ( 4 ] =uw_xsect ; 

wave_resist  =  2.85  *  uw_X3ect  *  f2  *  square (vtow)  *  1.2; 
resist_dat (2] =wave_resist; 
wave_height (vwind,  &resist_dat (1] ) ; 

/*  compute  wind  resistance  */ 

abv_xsect  =  (depth-draft) *beam  +  height*width; 
barge_res (5 ) =abv_xsect; 

wir.d_resist  =  abv_xsect*0 .004 *square (vtow+vwind) *f3; 
resist_dat [0] =wind_resist; 

/*  compute  total  resistance  */ 

resistance  =  friction  +  wave_resist  +  wind_resist; 
resist_dat ( 4 ] =0;  /*  no  propeller  resistance  */ 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data,  tow_data [1] ,  resistance, &haw_res)  ; 

/*  compute  total  resistance  */ 

♦tension  =  resistance  +  haw_res; 

/************************************************************/ 

/*  display  results  */ 

/******** **** ************************************ ************/ 

/*  clear  portion  of  window  */ 

clear (startrow+1, startcol+l, endrow-1,  endcol-1 , REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, header [2] , REV_VID) ; 

/*  write  labels  */ 
for  (i=0;  i<15;  i++) 

write_string(startrow+4+i, startcol+3,  ).abell (i) , REV_VID) ; 

/***********************/ 

/*  write  data  */ 

/*************A****  *****/ 

/*  barge  name  */ 

write_string (startrow+4 , startcoH-3+strlen (labell (0) ) +1, name, REV_VID) ; 
sprintf (string, "%7.2f", fl) ;  /*  fl  */ 

write_string (startrow+6, startcol+3  +  strlen (labell (5] )  ,  string, REV_VID) ; 
sprintf (string,  "%7.2f",  f2) ;  /*  f2  */ 

write_string (startrow+7,  startcol+3+strlen (labell (5) ) ,  string, REV_VID) ; 
sprintf (string, "%7 . 2f", f 3 ) ;  /*  f3  */ 
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write_string (startrow+8,  startcol+3+strlen (label 1 (5] )  ,  string, REV_VID) ; 

sprintf (string, "%7. Of", wet_surf) ;  /*  wetted  surface  area  */ 

write_string (startrow+9,  startcol+3+strlen (labell [S] ) ,  string, REV_VID) ; 

sprintf (string, "%7. Of ", uw_xsect) ;  /*  below  waterline  cross  sect  */ 

write_string(startrow+ll,  startcol+3+strlen (labell (5) >  ,  string, REV_VID) ; 

sprintf (string,  "%7. Of", abv_xsect) ;  /*  above  waterline  cross  sect  */ 

write_string (startrow+12,  3tartcol+3+strlen (labell (5] )  ,  3tring, REV_VID) ; 

sprintf (string, "%7 .Of ",  friction) ;  /*  frictional  resistance  */ 

write __string(3tartrow+14,  startcol+3+strlen (labell (5] )  ,  string, REV_VID) ; 

sprintf (string, "%7 . Of ", wave_resist) ;  /*  wave-forming  resistance  */ 

write_3tring(startrow+15,  startcol+3+strlen (labell [5] ) , string, R£V_VID) ; 

sprintf (string,  "%7. Of ",  wind_resist) ;  /*  wind  resistance  */ 

write_3tring (startrow+16,  startcol+3+strlen (labell (5) )  ,  string,  REV_VID) ; 

sprintf (string, "%7 . Of ", haw_res) ;  /*  hawser  resistance  */ 

write_string (startrow+17, startcol+3+strlen (labell [ 5 )), string, REV_VID) ; 

sprintf (string, "%7. Of", *tension) ;  /*  total  resistance  */ 

write_string (startrow+18, startcol+3+strlen (labell (5) ) , string, REV_VID) ; 

/*  write  units  */ 

write_string (startrow+9, endcol-6, "sq  ft" , REV_VID) ; 
write_string (startrow+ll, endcol-6, "sq  ft",REV_VID) ; 
write_string (startrow+12, endcol-6, "sq  ft",REV_VID) ; 
for  (i=0;  i<5;  i++) 

write_string(startrow+14+i, endcol-6, "lbs", REV_VID) ; 

/*  pause;  wait  for  INS  key  before  continuing  */ 

pause  (startrow,  started,  endrow,  ended,  footer  (4)  ,  REV_VID)  ; 

return  (0) ; 

) 

/A*********  A*****A**Ar*A**A********A**A**Ar*AA*A***AA*AAAAA***A**AA*A*AA*A**A* 

This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  get_barge_resist () .  Uses  screen_getstrg ( )  for  screen  I/O.  Some 
data  checking  is  performed  for  each  data  type. 

AAA**AAAAA**ftAA*AA*AA*AA*AA**A-A**AAA*AAAA**AA*****AAAAAAAA*A***AA*A**AA**A*A* 

void  get_barge_data (i, row, col, name, data) 

int  i  ; 

int  row; 

int  col; 

char  *name; 

float  *data; 

{ 


int  nbr; 

/* 

required  arg  for  stofa 

*/ 

int  status; 

/* 

takes  return  value  for  stofa 

*/ 

char  string (13); 

/* 

input  string 

*/ 
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char  textl(39],  text2(39]; 

/* 

error  message  text 

*/ 

int  j,  k; 

/* 

counters 

*/ 

int  length; 

cursor  on(); 

/* 

turn  on  cursor 

*/ 

goto  xy (row, col) ; 

/* 

move  cursor  to  start  of  box 

*/ 

/*  get  user  input  */ 

screen_getstrg(i,  row,  col,  string,  NORM_VID,  input) ; 

if  (i==0  | |  i==l)  /*  barge  name  or  hull  number  */ 

{ 

/*  convert  input  string  to  upper  case;  output  to  name  */ 
slctouc (string, name) ; 

/*  ensure  hull  number  is  in  proper  format  */ 

/*  —  first  copy  name  */ 
strcpy (string, name) ; 

/*  —  ensure  space  between  hull  type  and  number  */ 
length=strlen (name) ; 
for  (j=0;  j<length;  j++) 

( 

if  (name ( j] >=' 0'  &&  name ( j] <=' 9' ) 

( 

if  (name(j-l)  ==  '-') 

{ 

name [ j-1]  =  '  '  ; 
break; 

} 

else  if  (name(j-l]  !=  '  '  ) 

{ 

string (j]  »  '  '; 

for  (k=j+l;  k<=strlen (name) ;  k++) 
string (k)  =  name(k-lj; 
string { k]  *  NOLL; 
slctouc (string, name) ; 
break; 

} 

else 

{ 

break; 

) 

) 

) 

) 

else  if  (i>l  &&  i<9) 

{ 

/*  check  for  valid  numeric  input  */ 
for  (k*0;  k<strlen (string) ;  k++) 

( 

if  (  string (k) )  ; 

else  if  (string (k) <' 0'  ||  string ( kj >' 9' ) 

( 
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sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl,  "  "); 
vid_box (row, col,  7)  ; 

get_barge_data (i,  row,  col,  name ,  data) ; 
return  ; 

} 

> 

/*  if  input  string  contains  only  valid  numbers,  convert  string  to  float  */ 
status  =  stofa (string, Sdata (i-2 ], &nbr, 1) ; 

> 

else  /*  i  ==  9;  edit  response  */ 

( 

strcpy (response,  string) ; 

) 

/*******************************************************/ 

/*  check  data  for  consistency  */ 

/*******+***********************************************/ 
/**■*********************/ 
if  (i<2)  /*  hull  name  or  number  */ 

{  /***********************/ 

if  (name[0]<'A'  ||  'Z'<name(0]  &&  name(0)<'a'  ||  name[0]>'z') 

! 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR,  textl , "  " ) ; 
vid_box (row,  col,  14)  ; 

get_barge_data (i,  row,  col,  name,  data) ; 
return  ; 

} 

}  /***************/ 

if  (i=~2)  /*  hull  length  */ 

{  /***************/ 

if  (data[0] <=0.0) 

( 

spnr.tf  (textl,  "Invalid  entry;  try  again"); 
display__error  (ERROR,  textl ,  "  " )  ; 
vid_box(row, col, 7) ; 

get_barge_data (i,  row,  col,  name,  data) ; 
return  ; 

) 

else  if  (  data (0) >1000 . 0  ) 

{ 

sprintf (textl, "Invalid  entry;  try  again”); 
display_error (ERROR, textl , "  ") ; 
vid_box (row, col, 7) ; 

get_barge_data ( i, row,  col,  name ,  data) ; 
return  ; 

) 

}  /********/ 

if  (i=»3)  /*  beam  */ 

{  /********/ 

if  (data ( 1] <«0 . 0) 

{ 

sprintf (textl ," Invalid  entry;  try  again"); 
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display_error (ERROR, textl,  "  " )  ; 
vid_box (row, col, 7) ; 

get_barge_data  (i,  row,  col,  name,  data)  ; 
return  ; 

; 

else  if  (  data ( 13 >500 . 0  ) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl,  "  ")  ; 
vid_box(row,  col,  7)  ; 

get_barge_data (i,  row,  col,  name,  data)  ; 
return  ; 

} 

}  /**************/ 

if  (i==4)  /*  hull  depth  */ 

{  /**************/ 

if  (data (2) <=0 . 0) 

{ 

3printf (textl, "Invalid  entry;  try  again"); 
display_error  (ERROR,  textl ,  "  " ; 
vid_box (row, col, 7 ) ; 

get_barge_data (i,  row,  col,  name,  data) ; 
return  ; 

> 

else  if  (  data[2]>100.0  ) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl ,  "  " ) ; 
vid_box (row,  col,  7)  ; 

get__barge_data (i,  row, col, name, data) ; 
return  ; 

} 

}  /*+*******/ 

if  (i==5)  /*  draft  */ 

(  /*********/ 

if  (data (3] <=0 . 0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl, "  " ) ; 
vid_box (row, col,  7) ; 

get_barge_data (i, row, col, name, data) ; 
return  ; 

} 

else  if  (  data (3) >data (2)  ) 

( 

sprintf (textl, "Draft  is  deeper  than  hull") 
sprintf (text2, "==>  please  try  again  <=="); 
display_error (ERROR, textl , text2 ) ; 
vid_box (row, col,  7) ; 

get_barge_data (i,  row, col, name , data) ; 
return  ; 

) 

}  /********************/ 
if  (i==6)  /*  deckhouse  length  */ 
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{ 


if  (data (4] <0) 

( 

sprintf (textl, “Invalid  entry;  try  again") ; 
dispiav_error (ERROR,  textl , "  ” ) ; 
vid_box (row, col, 7) ; 

get_barge_data(i,  row,  col, name, data) ; 
return  ; 

} 

else  if  (data (4 j>data [0 ] )  /*  is  greater  than  hull  length  */ 

{ 

sprintf (textl, "Deckhouse  is  longer  than  hull"); 
sprintf  (text2,  "=>  please  try  again  <=="); 
display_error (ERROR,  textl,  text2) ; 
vid_box (row,  col,  7)  ; 

get_barge_data (i, row, col, name, data) ; 
return  ; 

) 

}  /A******************/ 

if  (i==7)  /*  deckhouse  width  */ 

{  /it*****-*************/ 

if  (data[5]<0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl ,  "  " )  ; 
vid_box (row, col, 7) ; 

get_barge_data (i,  row,  col,  name, data) ; 
return  ; 

} 

else  if  (data (5]>data (1] )  /*  is  greater  than  beam  */ 

{ 

sprintf (textl, "Deckhouse  is  wider  than  beam") ; 
sprintf (text2, "==>  please  try  again  <=="); 
display _error (ERROR, textl , text2 )  ; 
vid_box (row, col, 7) ; 

get_barge_data (i,  row,  col,  name,  data) ; 
return  ; 

} 

}  /+*******************/ 

if  (i==8)  /*  deckhouse  height  */ 

(  /*-«***x**************/ 

if  (data(6]<0) 

( 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error  (ERROR,  textl,  "  ’*)  ; 
vid_box (row, col, 7) ; 

get_barge_data (i,  row,  col,  name,  data) ; 
return  ; 

} 

else  if  (  data ( 6] >100 . 0  ) 

( 

sprintf (textl, "Deckhouse  is  unusually  high"); 
sprintf (text2, please  try  again  <==";; 
display_error (ERROR, textl , text2 ) ; 
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vid_box (row, col, 7) ; 

get_barge_data (i,  row, col, name,  data) ; 
return  ; 

} 

) 

cursor_of f ( ) ; 
goto_>:y  (0,0)  ; 

} 

/****»**■*****************************************************»*****-********•* 
Thi3  function  displays  a  summary  of  input  data  and  gives  the  user  the 
opportunity  to  edit. 

void  barge_summary (barge_data, tow_data, name ) 
float  "barge_data; 
float  *tow_data; 
char  *name; 

{ 

static  char  "'label!  (]  = 

{ 

"Name  or  hull  no:", 

"Hull  condition:", 

"Tow  speed:", 

"Max  expected  wind  speed:", 

"Relative  wind  direction:" 

> ; 

int  row,  col,  i,  key; 
int  start; 

char  string (81] , stringl [81] ; 

/*  clear  portion  of  window  */ 

clear (startrow+l, startcol+l, endrow-1, endcol-l,REV_VXD) ; 

/*  write  header  */ 

write_header (3tartrow, started, endcol, header [1] , REV_VID) ; 

/*  write  labels  */ 

write_string(startrow+5, startcol+3,  labell (0) , REV_VID) ; 
write_3tring(startrow+7, startcol+3,  labell [1] ,  REV_VID) ; 
write_string(startrow+9, startcol+3,  labell [2] ,  REV_VID) ; 
write_string (startrow+11, startcol+3, labell [3] , REV_VID) ; 
write_string(startrow+13, startcol+3,  labell [ 4] , REV_VID) ; 

/*  write  data  */ 

write_string (startrow+5, startcol+3+strlen (labell [0] ) +2, name, REV_VID) ; 
sprintf (string,  "%7 . If", tow_data (4 ] ) ; 

write_string (startrow+7, startcol+3+strlen (labell [3] )  ,  string, REV_VID) ; 
sprintf (string, "%7 . If ", tow_data (1) )  ; 

write_string (startrow+9, startcol+3+strlen (labell [3] ) , string, REV_VID) ; 
sprintf (string, ”%7 . If",  tow_data [2] ) ; 

write_string (startrow+11, startcol+3+strlen (labell [3] )  ,  string,  REV_VID) ; 
sprintf (string, "%7 . If ", tow_data [3] ) ; 
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write_string (startrow+13, startcd+3+strlen  (labeil [3 ) )  , 3tring, REV_VID) 
/*  write  units  */ 

write_string (startrow+9, endcol-4,  "kts",  REV_VID) ; 
write_string(startrow+ll,  endcol-4, "kts" , REV_VID) ; 
write_string( startrow+13,  endcol-4  "deg", REV_VID) ; 

/*  write  footer;  prompt  for  confirmation  of  data  */ 

/*  write  footer  */ 

write_string (endrow-2, startcol+3,  footer [1] , EEV_VID) ; 

/*  create  normal  video  box  for  response  *1 
vid_box (endrow-2,  startcoi+3+strlen (footer (1] ) ,  4 )  ; 

/*  get  response  */ 

get_barge_data (9,  endrow-2 , startcol+3+strlen (footer ( 1] ) , name, tow_data) 
/*  test  if  data  correct  */ 

if  (  response (0 ]!=' y'  &&  response '0 ]!=' Y'  &&  response [0] !=NULL  ) 

( 

/a***************-********************************************/ 

/*  edit  data  */ 

/*************************************************-***■*******•*/ 

/*  erase  previous  message  */ 

start  =  started  +  3; 

for  (i-0;  i<strlen (footer ( 1 ]) +5;  i++) 

write_char (endrow-2, start+i, '  ' ,R£V_VID) ; 

/*  write  quit  message  */ 

start= (endcol-startcol-strlen (footer (4 )}) /2  +  started; 
write_string (endrow, start, footer (4] ,REV_VID) ; 

/*  write  edit  "menu"  */ 

start= (endcol-3tartcol-strlen (footer (2] )> /2  +  startcol; 
write_string(startrow+15, start, footer (2] ,  REV_VID) ; 
start” (endcol-startcol-strlen (footer (3) )) /2  +  started; 
write_string(startrow+16, start, footer (3) , REV_VID) ; 

/*  write  function  key  indicators  in  N0RM_VID  */ 
for(i”0;  i<2;  i++) 

( 

start- (endcd-startcd-strlen  (footer  (2) )) /2  +  startcol; 
write_char (startrow+15,  start+i,  footer [2]  [i] , N0RM_'7ID) ; 
writa_char (startrow+15,  start+8  +  i, footer [ 2 ) (i+8) ,N0RM_VID) ; 
write_char (startrow+’.S,  start+16+i,  footer (2)  [i+16] , N0RM_VID) ; 
start* (endcol-startcol-strlen (footer (3) )) /2  +  startcol; 
write_chai (startrow+16,  start+i,  footer [3]  (i) , N0RM_VID) ; 
write  char (startrow+16, start-^S+i, footer(3] [i+8], NORM_VID) ; 

} 

/*  move  cursor  to  FI  highlight  */ 
cursor_on () ; 

start” (endcol-startcol-strlen (footer (2] )) /2  +  startcol; 
got.o_xy  (startrow+15,  start)  ; 
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/*  get  user's  choice  */ 
while  (1) 

{ 

key=get_special () ; 

/*******„-<,****/ 
if  (key==Fl)  /*  barge  name  */ 

(  /**************/ 

vid_box (startrow+5,  startcol+3+strlen (labell [0] ) +2,  14) ; 

get_barge_data(l, startrow+5,  startcol+3+strlen (labell (0) )+2,  name, barge_data) 
for  (i=0;  i<=15;  i++) 

write_char (startrow+5 , start col+3+strlen(labell[0))+l+i, '  ', REV_VID) ; 
write_string (startrow+5,  startcol+3+strlen (labell (0) ) +2, name, REV_VID) ; 
cursor_on () ; 

start= (endcol-startcol-strlen (footer (2) )) /2  +  3tartcol; 
goto_xy (startrow+15, start) ; 

}  /******************/ 

else  if  (key==F2)  /*  hull  condition  */ 

{  /******************/ 

vid_box (startrow+7,  startcol+3+strlen (labell (3) ) +2, 6) ; 
get_dock_data (4, startrow+7, startcol+3+strlen (labell (3) ) +2,  tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+7, startcol+3+strlen (labell (3) ) +l+i,  '  '  ,  REV_VID) ; 
sprintf (string, "%7 . If " , tow  data (4 ] ) ; 

write_string( startrow+7,  startcol+3+strlen (labell [3] ) , string, REV_VXD) ; 
cursor_cr.  ( )  ; 

start“(endcol-3tartcol'S*-rlen(footer(2) ) ) /2  +  startcol; 
goto_xy (startrow+15,  start +8) ; 

}  /*************/ 

else  if  (key==F3)  /*  tow  speed  */ 

{  /*************/ 

vid_box (startrow+9, startcol+3+str len (labell (3) ) +2,  6) ; 
get_dock_data (1,  startrov/+9,  startcol+3+strlen (labell [3] ) +2,  tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+9, startcol+3+strlen (labell (3) ) +l  +  i, '  '  ,  REV_VID) ; 
sprintf (string, "%7 . If", tow_data ( 1] ) ; 

write_string (startrow+9,  startcol+3  +  strlen (laboll [3] ) , string, REV_VID) ; 
cursor_on () ; 

start” (endcol-startcol-strlen (footer (2) )) /2  +  startcol; 
goto_xy (startrow+15,  start+16)  ; 

}  /**************/ 

else  if  (key=*F4)  /*  wind  speed  */ 

(  /**************/ 

vid_box(startrow+ll, startcol+3+strlen (labell (3] )+2, 6) ; 
get_dock_data (2,  startrow+ll,  startcol+3+strlen (labell (3) ) +2, tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+ll,  startcol+3+strlen (labell (3) ) +l+i, '  ' ,  P.EV_VID) ; 

sprintf (string, "%7 . If ",  tow_data ( 2 ] )  ; 

write_otring (startrow+ll,  startcol-O  +  strlen (labell (3 ) ) , string, REV_VID) ; 
cursor_on ( ) ; 

start” (endcol-startcol-strlen (footer (3) )) /2  +  startcol; 
goto_xy (startrow+16, start) ; 

}  /**********************/ 

else  if  (key”«*F5)  /*  rel  wind  direction  */ 
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{  /A*****************-****/ 

vid_box (startrow+13, start col+3+strlen (labell (3] ) +2,  6) ; 
get_dock_data (3, startrow+13,  startcol+3+strlen (labell (3) ) +2,  tow_data) ; 
for  (i=0;  i<7;  i++) 

write_char (startrow+13, startcol+3+strlen (labell [3 ) ) +l+i, '  ' , REV_VID) 
sprintf (string,  "%7 . If ",  tow_data (3 ] ) ; 

write_string (startrow+13,  startcol+3+strlen (labell (3] ) , string, REV_VID) ; 
cursor_on () ; 

3tart= (endcol-startcol-strlen (footer (3} )) /2  +  startcol; 
goto_xy (startrow+16,  start+8) ; 

} 

else  if  (key==INSERT) 

{ 

/*  erase  menu  */ 

for  (i=0;  i<strlen (footer (2 ]) ;  i++) 

{ 

start= (endcol-startcol-strlen (footer [2] )) /2  +  startcol; 
write_char (startrow+15, start+i, '  ' , REV_VID) ; 
write_char (3tartrow+l 6, start+i, '  ' ,REV_VID) ; 

} 

/*  erase  message  */ 

start  =  (endcol-startcol-strlen (footer (4] )) /2  +  startcol; 
for  (i=0;  ikstrlen (footer ( 4 ]) ;  i++) 

write_char (endrow, start+i, 205,REV_VID) ; 
cursor_of f ( ) ; 
goto_xy (0,0); 
break; 

} 

} 

} 

/*  prompt  to  save  data  to  file  */ 

/*  —  erase  message  */ 

start  =  (endcol-3tartcol-strlen (footer ( 1 3 )) /2  +  startcol; 
for  (i=0;  i<37;  !+■*-) 

write_char (startrow+15,  startcol+3+i, '  ' , REV_VID) ; 
start  =  startcol  +  3; 

write_string(endrow-2, start, footer (5) ,REV_VID) ; 
vid_box (endrow-2, start+strlen (footer (5) )  ,  4)  ; 

get_barge_data (9, endrow-2, start+strlen (footer [5] ) , name, tow_data) ; 

if  (  response (0) !=’ n'  &&  response (0] !=' N'  )  /*  save  data  */ 

{ 

/*  erase  previous  message  */ 
start  “  startcol  +  3; 

for  (i=0;  ikstrlen (footer [5] ) +4 ;  i++) 

write_char (endrow-2, start+i, '  ' , REV_VID) ; 

save_barge_file (name, barge_data, tow_data) ; 

) 

) 

This  function  computes  the  mean  tension  of  a  barge  and  its 
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towing  hawser.  It  duplicates  the  computations  in  the  function 
get_barge_resist ()  ,  but  is  intended  as  a  stand  alone  function 
for  use  by  other  program  modules . 

**********w******************************************************/ 

void  barge_resist (tug_data, barge_data, tow_data, tension) 

float  *tug_dara; 

float  *barge_data; 

float  *tow_data; 

float  ‘tension; 

{ 

float  vtow  =  tow_data(l]; 
float  vwind  =  tow_data ( 2] ; 
float  hlength  =  barge_data (0] ; 
float  beam  =  barge__data  ( 1  ] ; 
float  depth  =  barge_data (2]  ; 
float  draft  =  barge_data (3]  ; 
float  dlength  =  barge_data ( 4  ]  ; 
float  width  =  barge_data (53 ; 
float  height  =  barge_data(6]  ; 
float  end_shape  =  barge_data ( 7 ) ; 
float  fl,f2,f3; 

float  wet_surf, friction,  uw_xsect, abv_xsect; 
float  wave_resist, wind_resist,  resistance,  haw_res; 

/*  determine  fl,  f2,  f3  */ 

fl  =  (tow_data(4] /10.0) * (0.8  -0.45)  +0.45;  /*  hull  condition  */ 

if  (end_shape==0  I |  end_shape==l ) 

f2  «  0.2;  /*  rake  or  ship-ended  */ 

else 

f2  =  0.5;  /*  square-ended  */ 

f3  =  0.60;  /*  average  barge  value  per  Section  G-3 . 2  */ 

/*  compute  frictional  resistance  */ 

wet_surf  =  (hlength*beam)  +  2 .0* (hlength+beam) ‘draft; 
vtow  =  square (vtow/6.0) ; 
friction  «  fl  *  wet_surf  *  vtow; 

/*  compute  wave  resistance  */ 
uw_xsect  «  (beam*draft) ; 

wave_resist  »  2.85  *  uw_xsect  *  f2  *  square (vtow)  *  1.2; 

/*  compute  wind  resistance  */ 

abv_xsect  ”  (depth-draft) ‘beam  +  height*width; 
wind_resist  =  abv_xsect*0 . 004 ‘square (vtow+vwind) *f3 ; 

/*  compute  total  resistance  */ 

resistance  -  friction  +  wave_resist  +  wind  resist; 

/*  compute  hawser  resistance  ‘/ 

hawser_resist (tug  data, tow  data ( 1 ),  resistance , &haw_res) ; 

/*  compute  total  resistance  */ 
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*tension  =  resistance  +  haw_res; 

} 

/*******-x******************************************************** 

This  function  retrieves  tow  data  from  a  user  specified  file. 

*******************************************************x**A******/ 

get_barge_f ile (hull_no,  barge_data,  tow_data) 
char  *hull_no; 
float  *barge_data; 
float  *tow_data; 

{ 

FILE  *in; 

char  fname{13]; 

char  inline (81); 

char  textl (39] , text2 (39] ; 

int  i, j ,  status, nbr; 

float  array (2 ]; 

int  start; 

/*  write  header  */ 

start  =  (endcol-startcol-strlen (label2 (1] ) ) /2  +  started; 
write_string(startrow+8, start, labe!2 ( 1] , REV_VID) ; 

/ *  write  prompt  */ 
for  (i=0;  i<2;  i++) 

( 

start  =  startcol+3; 

write_string (startrow+10+i,  start, label2 (i+2] , REV_VID) ; 

} 

vid_box (startrow+ll, 3tart+strlen (label2 (3] ) , 9) ; 
sprintf (text 1, "Type  '  Q'  to  quit"); 

start  =  (endcol-startcol-strlen  (textl) ) /2  +  started; 
write_string (endrow-3 , start, textl , REV_VID) ; 

get_fname (6, 1,  startrow+ll, startcol+3+strlen (label2 (3) ) , fname) ; 

/*  check  for  quit  option  */ 
if  (fname (0]==' Q' ) 

{ 

cursor_of f ( ) ; 
goto__xy  (0,0)  ; 
return  (-1) ; 

) 

in**f open  (fname,  "r")  ; 
if  (in— NOLL) 

( 

sprintf (textl , "Can' t  open  file  %s", fname) ; 
display_error (ERROR,  textl ,  "  " )  ; 

clear (startrow+8, startcol+l, endrow-3, endcol-1, REV_VID) ; 
status=get_barge_file (hull_no, barge_data, tow_data) ; 
if  (status<0) 

( 

cursor_of f ( )  ; 
goto_xy (0,0)  ; 
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return  (-1) ; 


} 

else 

return  (0) ; 

} 

else 

( 

/*  read  data  from  file  */ 
fget3 (inline, 81, in) ; 

3trstrip (inline) ; 

/*  test  for  valid  tow  file  */ 

if  (!  (strncmp (inline,  " !  Tow  data  file",  15))) 

( 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
strstrip (inline) ; 

/*  test  if  barge  file  */ 
if  (strncmp (inline, "BARGE", 5) ) 

{ 

sprintf  (textl, "%s  is  not  a",fname); 
sprintf (text2, "barge  data  file!"); 
display_error (ERROR,  textl ,  text2 ) ; 

clear (startrowtS, startcol+l,  endrow-3,  endcol-1,  REV_VID) ; 
status“get_barge_f i  le  (hull_no,  bt.rge_data,  tow_data)  ; 
if  (status<0) 

{ 

cursor_of f () ; 
goto_xy (0, 0) ; 
return  (-1) ; 

) 

else 

return  (0) ; 

} 

/*  get  hull  number  */ 
fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
strstrip (inline)  ; 
strncpy (hull_no, inline,  24 ) ; 
strstrip (hull_no) ; 

/*  read  remaining  tow  data  */ 
for  (i**0;  i  <5 ;  i++) 

( 

fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
status=stofa (inline, array, Snbr , 1) ; 
tow_data ( i) “array (0) ; 

) 

/*  read  barge  data  */ 
for  (i»0;  i<8;  i++) 
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{ 

fgets (inline, 81 , in) ; 
fgets (inline, 81 , in) ; 
status=»stofa  (inline,  array,  &nbr,  1)  ; 
barge_data(i]=array(0) ; 

) 

f close (in) ; 

) 

else 

( 

sprintf (textl, "%s  is  not  a  tow  data  f ile !". fname) ; 
display_error  (ERROR,  textl,  "  *')  ; 

clear (startrow+8, startcol+l, endrow-3,  endcol-1,  REV_VID) ; 
status=get_barge_£ile (hull _no, barge_data,  tcw_data) ; 
if  (status<0) 

( 

cursor_off () ; 
goto_xy (0,0); 
return  (-1) ; 

) 

else 

return  (0)  ; 

} 

) 

) 

/**************************************************************** 
This  function  writes  the  tow  data  for  barges  to  a  user 
specified  file. 

******************************************************★**********/ 

void  save_barge_f ile (hull_no, barge_data,  tow_data) 

char  *hull_no; 

float  *barge_data; 

float  *tow_data; 

( 

FILE  *out; 

char  fname (13); 

char  string (25); 

char  textl (39) ,  text2 (39)  ; 

int  start; 

/*  prompt  for  file  name  */ 
start  ■  startcol  +  3; 

write_string (endrcw-2, start, footer ( 6] , REV_VID) ; 
vid_box (endrow-2, start+strlen (footer ( 6) ) +4 , 9) ; 

g«t_f name (6,1,  endrow-2, start+strlen(footer(6) )+4, fname) ; 
out=fopen (fname, "w" ) ; 

if  (out==NULL) 

( 

aprintf (textl , "Can' t  open  file  %s",  fname); 
di splay_error (ERROR,  textl ,  "  " ) ; 
save_barge_file (hull_no, barge_data,  tow_data)  ; 
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return; 


> 

else 

( 

/*  write  tow  data  to  file  */ 
fprintf (out, " !  Tow  data  file\n"); 
fprintf (out, " !  Tow  type:\n”); 
fprintf (out,  "BARGE\n")  ; 

fprintf (out, " !  Hull  number :\n"); 
fprintf (out, "%s\n", hull_no) ; 

fprintf (out, " !  Estimated  displacement :\n") 
sprintf (string, . If \n", tow_data [0] ) ; 
fprintf (out,  "%s" ,  string)  ; 

fprintf (out, " !  Tow  speed  (kts):\n"); 
sprintf (string,  If \n",  tow_data (1) )  ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Wind  speed  (kts):\n"); 
sprintf (string, "%- . 2f \n", tow_data [2] ) ; 
fprintf (out,  "%3",  string) ; 

fprintf (out, " !  Relative  wind  dir:\n"); 
sprintf (string, 2f \n",  tow_data (3) ) ; 
fprintf (out, "%s",  string) ; 

fprintf (out, " !  Hull  condition : \n" ) ; 
sprintf (string, 2f \n",  tow_data [4] ) ; 
fprintf (out, "%s", string) ; 

/*  write  barge  data  to  file  */ 
fprintf (out, " !  Hull  length : \n" ); 
sprintf (string, "%- . If \n",  barge_data (0) ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Beam:\n"); 

sprintf (string, "%- . If \n",  bargo_data [1 ] ) ; 

fprintf (out,  "%s",  string) ; 

fprintf (out, " !  Hull  depth :\n"); 
sprintf (string, "%- . If \n",  barge_data [2 ) ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  Draft:\n"); 

sprintf (string,  "%- . If \n",  barge_data [3 ) ) ; 

fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Deckhouse  length:\n"); 
sprintf (string, If \n”, barge_data [4 } ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Deckhouse  width :\n"); 
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sprintf  (string, lf\n", barge_data (5] ) ; 
fprintf (out, "%s",  string)  ; 

fprintf (out, " !  Deckhouse  height :\n"); 
sprintf  (string, "%- . If \n", barge_data (6) ) ; 
fprintf (out, "%s", string) ; 

fprintf (out, " !  End  shape:\n"); 
sprintf (string, "%-.Of\n", barge_data [7] ) ; 
fprintf (out, "%s",  string) ; 

} 

fclose (out) ; 
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/******rt********************************rt******************************** 

File:  drg.c 

Author:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  the  functions  which  compute  the  tow  resistance 
of  self-propelled  ship3,  as  well  as  the  resistance  of  the  tow 
hawser. 


Functions : 

mean_tension ( ) 
ship_resist () 
added_res ( ) 
hull_resist () 
wave_he ight ( ) 
hawser_resist ( ) 

************************************************************************/ 
♦include  "stdio.h" 

♦include  "math.h" 

♦include  "keydef.h" 

♦include  "video. h" 

♦define  PI  3.141592654 

static  char  *label(]  = 

{ 

"Wind  resistance:", 

"Wave  height:", 

"Wave  resistance:", 

"Hull  resistance:", 

"Propeller  resistance:", 

"Total  tow  resistance:", 

"Hawser  resistance:", 

"Mean  tension:" 


static  char  footer (]  = 

{ 

"  Press  INS  to  continue  " 

); 


3tatic  char  *header(]  = 

{ 

"RESISTANCE", 

"DATA  SUMMARY" 


static  char  *labell()  = 

{ 

"Hull  no:", 

"Class : " , 

"Disp:", 

"Tab  disp:", 

"Front  area:", 
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"Wind  coef : ", 
"Prop  area:", 
"Hull  curve:", 
"Wave  curve : " , 
"Tug  class:", 
"Hawser", 

"  diameter:", 
"  scope:" 

}; 


static  char  *label2{]  = 

{ 

"Tow  spd: " , 

"Max  wind:", 

"Rel  wind  dir:", 

"Wave  height:", 

"Prop  status:", 

"Chain  pendant", 

"  size:", 


static  char  *label3(]  = 

{ 

"Resistance  (lbs) ", 

"  Wind:", 

"  Wave : " , 

"  Hull:", 

"  Prop:", 

"Total:", 

"Hawser:", 

"Tension: " 

); 


extern  float  resist_d«t (5] ; 

void  mean_tension () , ship_resist () , hawser_resist () ; 
float  square  0; 

/ft********************************************************************-** 

This  function  computes  the  mean  towing  tension  of  a  ship,  displays 
the  results,  and  then  displays  a  summary. 
**********•************************************************•****★********/ 
void  mean_tension (tug_data,  tow_data, ship_data, hull_no, class, tension) 


float  *tug  data; 

/* 

tug  data 

*/ 

float  *tow_data; 

/" 

tow  data 

*/ 

float  *ship  data;  /* 

ship  data 

*/ 

char  *hull_no; 

/* 

hull  number 

*/ 

char  * class; 

/* 

ship  class 

*/ 

float  ‘tension; 

( 

int  row, col, i, 

/* 

mean  hawser 

tension 

start, key; 

int  status; 

float  tow  res; 

/* 

total  tow  resistance 
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*/ 

*/ 


float  haw_res;  /*  hawser  resistance 

float  res_dat{5);  /*  array  of  resistances 

int  startrow*2; 
int  startcol=20; 
int  endrow=22; 
int  endcol=60; 
int  left, center , right; 
char  string{15); 

/*  start  of  computations  */ 

ship_re3ist (tow_data, ship_data,  res_dat,  stow  res) ; 
for  (i=0;  i<5;  i++) 

resi3t_dat (i) =res_dat [ i ) ;  /*  save  data  for  report  */ 

/********************************/ 

/*  compute  total  tow  resistance  */ 

/********************K***********/ 

/*  compute  hawser  resistance  */ 

hawser_resist (tug_data, tow_data (1] ,  tow_res,  &haw_res) ; 

/*  compute  mean  tension  */ 

*tension  =  tow_res+haw_res; 

/*x***********************************************/ 

/*  display  results  */ 

/*************<.*******x*»***********w*************/ 

/*  draw  background  and  border  * / 

draw_window  (start row,  started,  endrow,  ended,  DOUBLE,  REV__V1D)  ; 

/*  write  header  */ 

writ8_hoader (startrow, started, endcol, header (0) , REV_VID) ; 

/*  write  data  labels  */ 

for (row=3tartrow+5, i*0;  i<8;  i++, row++) 

write_string (row, startcol+3, label (i) ,  REV_VID) ; 

/*  write  data  */ 

/*  write  wind  resistance  */ 
sprintf (string, "%8.0f", res_dat(0] ) ; 

write_string(startrow+5,  startcol-i-2+strlen  (label  [4  ) )  +2,  string,  REV_VID) 

/*  write  wave  height  */ 

sprintf (string, "%8 . If", res_dat ( 1] ) ; 

write_string (st»rtrow+6, ?tartcd+2+strlen (label [ 4 ) ) +2 , string. REV_VID) 

/*  write  added  resistance  */ 
sprintf (string, "%8.0f", res_dat(2] ) ; 

write_string  (startrov;+7,  startcd+2+strlen  (label  (4 ) )  +2,  string.  REV_VID) 

/*  write  hull  resistance  * / 
sprintf (string,  "%8 .Of", res_dat (3) ) ; 

writo_otring (startrow+8, startcd+2+strlen (label (4 ) ) +2, string, REV_VID) 
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/*  write  prop  resistance  */ 
sprintf (string, "%8 .Of ",  res_dat (4 ) ) ; 

write_string (startrow+9, startcol+2+strlen (label (4 ) ) +2, string,  REV_VID) ; 

/*  write  total  tow  resistance  */ 
sprintf (string, ”%8 . Of",  tow_res) ; 

write_string(startrow+10, startcol+2+strlen t label ( 4 ) )+2,  string,  REV_VID) ; 

/*  write  hawser  resistance  */ 
sprintf (string, "%8 .Of",  haw_res) ; 

write_string(startrow-fll,  startcol+2+strlen (label [4] ) +2, string, REV_VID) ; 

/'*  write  mean  tension  */ 

3printf (string, "%8 . Of",  ‘tension) ; 

write_string (startrow+12,  startcol+2+strlen ( label ( 4 ) ) +2,  string,  REV_VID) ; 
/*  write  units  */ 

for  (row=startrow+5,  i=0;  i<8;  i+-f,  row++) 
write_string(row, endcol-5, "lbs", REV_VID> ; 
write_string(startrow+6, endcol-5, "ft  ",REV_VID) ; 

/*  write  footer  */ 

start  =  (endcol-startcol-strlen  (footer) ) /2  +  started; 
write_string(endrow, start, footer,  REVJVID) ; 

pause  (  atartrow,  started,  endrow,  ended,  footer,  REV_VID)  ; 
return  ; 


/*********-**********************A******x**************************rt*******vt* 

This  function  computes  the  added  resistance  due  to  waves.  Data  from 
Figure  C-2  of  the  (JSN  Towing  Manual  are  read  in  from  the  file  "RS_WVHT.DAT" 
and  are  linearly  interpolated  for  the  specified  wave  height.  The  first 
argument  is  the  aesired  wave  height,  the  second  is  the  curve  number  as 
determined  from  Table  G-2;  tha  third  argument  is  the  result,  the  added 
resistance . 


added_res (wave_ht, curve, resistance) 


float  wave  ht; 

/* 

Have  height,  feet 

*/ 

float  ‘resistance; 

/* 

Added  resistance,  lbs 

*/ 

int  curve; 

/* 

Curve  no.  for  added  resistance 

*/ 

FILE  *  in; 

char  string(81] , dummy (81] ,  toxtl (36] ,  text2 (36] ; 
char  ch; 


int  i; 

/* 

Dummy  counter 

*/ 

int  status; 

/* 

Return  value  for  "stofa" 

* j 

int  r.; 

/* 

Required  arg  for  "stofa” 

*/ 

int  index; 

/* 

Index  for  table  lookup 

*/ 

float  test; 

/* 

Test  value  for  if  statement 

*/ 

float  lower  dat(4],  upper  dat(4]; 

/* 

Bracketing  data  points 

*/ 

float  curve  dat(4J; 

in  ”  fopen ("is _wvht.dat"  ,  "r" >  ; 

/* 

/* 

Exact  or  interpolated  data 

Open  file  */ 

*/ 

index  =  wave_ht/l;  /*  Compute  test  value  for  if  statement  */ 

test  =  wave_ht  -  (float) index;  /*  "  ■*/ 


/*  Read  and  discard  text  lines  of  file  */' 

fgets (dummy, 81, in) ; 

fgets (dummy, 81, in) ; 

fget3 (dummy, 81, in) ; 

fgets (dummy, 81 , in) ; 


if  (wave_ht  =0.0)  ( 
fget3 (string,  81,  in) ; 

status  =  stofa (string, curve_dat, &n,  4) ; 

} 


else  if  (test  >0.0)  {  /*  Need  interpolation  */ 

for  (i=0;  i<index;  i+r) 

fgets (dummy, 81 , in) ;  /*  Read  &  discard  data  up  to  the  desired  line  */ 

fgets (string, 81, in) ;  /*  Read  line  of  file  */ 

status  =  stofa (string, lower_dat,  &n,  4) ; 
fgets (string, 81, in) ;  /*  Read  next  line  of  file  */ 

status  =  stofa (string, upper_dat,  &n,  4) ; 
for(i=0;  i<4;  i+r)  { 

curve_dat[i]  =lower_dat ( i]  +  (wave_ht-index)  *  (upper_dat [ i) 

-  low er_dat ( i ) ) ; 


} 


else  if  (test  ==  0.0)  (  /*  No  interpolation  needed  */ 

for  (i=0;  i<index;  i++) 

fgets (dummy, 81,  in) ;  /*  Read  &  discard  data  up  to  the  desired  line  */ 

fgets (string, 81, in) ;  /*  Read  line  of  file  */ 

status  =  stofa (string,  curve_dat,  &n,  4); 


/*  Check  consistency  of  data:  */ 
if  (  curve_dat (curve)  >  1.0e30) 

{ 

sprintf (text 1, "Wave  height  outside  data  range”); 
sprintf (text2, "for  this  curve."); 
display_error (ERROR, textl,  text2)  ; 
while  (  !  (ch«*getchar  () )  )  ; 
fclose (in) ; 
return  -1; 

} 

♦resistance  =  curve_dat (curve) ; 

fclose (in) ; 
return  0; 


/*  Passes  the  appropriate  vaiue  */ 
/*  back  to  the  calling  function.  */ 


This  function  finds  the  hull  resistance  of  the  ship  (RH) .  Data 
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from  Figure  G-l  of  the  USN  Towing  Manual  are  read  in  from  the  file 
"RH_DISP.DAT"  and  are  linearly  interpolated  for  the  specified  towing  speed. 
The  first,  argument  is  the  desired  towing  speed,  the  second  is  the  curve 
number  as  determined  from  Table  G-2,  the  third  argument  is  the  displacement; 
the  fourth  argument  i3  the  result,  the  hull  resistance. 


hull  resist (speed, curve, 

,  disp, resistance) 

float  speed; 

/* 

Towing  speed, 

kts 

*/ 

int  curve; 

/* 

Curve  no .  for 

added  resistance 

*/ 

float  disp; 

/* 

Displacement, 

tons 

V 

float  Resistance; 

/* 

Hull  resistance,  lbs 

*/ 

FILE  *in; 

char  string(81] , dummy (81] ,  textl (36] ,  text2 (36)  ; 
char  =h; 


int  i  ; 

/* 

Dummy  counter 

*/ 

int  status; 

/* 

Return  value  for  "stofa" 

*/ 

int  n; 

I* 

Required  arg  for  "stofa” 

*/ 

int  index; 

/* 

Index  for  table  lookup 

*/ 

float  test; 

/* 

Test  value  for  if  statement 

*/ 

float  lower  dat(6],  upper  dat(6]; 

/* 

Bracketing  data  points 

*/ 

float  curve_dat ( 6] ; 

/* 

Exact  or  interpolated  data 

*/ 

in  =  fopen ("rh_disp.dat",  "r") ; 

/* 

Open  file  */ 

index  =  speed/ 1; 

/* 

Compute  te3t  value  for  if  statement 

*/ 

test  =  speed  -  (float) index; 

/* 

II 

V 

/*  Read  and  discard  text  lines  of  file  */ 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 
fgets (dummy, 81, in) ; 

if  (speed  ==0.0)  ( 

fget3 (string, 81, in) ; 

status  =  stof a (string, curve_dat, &n, 6) ; 

} 


else  if  (test  >  0.0)  {  /*  Need  interpolation  */ 

for  (i=0;  i<index;  i++) 

fgets (dummy, 81, in) ;  /*  Read  &  discard  data  up  to  the  desired  line  */ 

fgets  (string,  81,  in)  ;  /■*  Read  line  of  file  */ 

status  =  stof a (string, lower  dat,&n,6); 
fgets (string, 81, in) ;  /*  Read  next  line  of  file  */ 

status  =  stof a (string, upper_dat, &n,  6) ; 
for(i=0;  i<6;  i++)  ( 

cuive_dat(i]  =lower_dac ( i]  +  (speed-index)  *  (upper_dat ( i] 

-  lower_dat ( i ] )  ; 


) 


} 

elss  if  (test  ==  0.0)  (  /*  No  interpolation  needed  */ 

for  (i=0;  i<index;  i++) 

fgets (dummy, 81 , in) ;  /*  Read  &  discaid  data  up  to  the  desired  line  */ 

fgets (string, 81, in) ;  /*  Read  line  of  file  */ 
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status  =  stofa (string, curve_dat,  in,  6) ; 

} 

♦resistance  =  1 . 25 *curve_dat [curve] *di3p;  /*  incl  25%  for  hull  fouling  */ 

fclose (in) ; 
return  0; 


/A******?!****************************************  '*************************** 

This  function  computes  the  significant  wave  height  as  a  function  of  the 
maximum  expected  wind  speed,  using  the  Pierson-Mcskowitz  sea  spectrum. 
*****************************************************************************/ 
wave_height (wind_spd,  height) 

float  wind_spd;  /*  wind  speed,  kts  */ 

float  *height;  /*  wave  height,  ft  */ 

( 

float  alpha-8 . le-3;  /*  P-M  nondimensional  parameter  */ 

float  beta=0.74;  /*  P-M  nondimensional  parameter  */ 

float  g=32.17;  /*  gravitational  constant  */ 

float  coef; 

coef  =  2 . 0/g*sqrt (alpha/beta) ; 

♦height  =  coef * (wind_spd*wind_sj)d) * (1 . 689*1 . 689) ;  /*  wave  height  in  ft  */ 

> 

/***■************■*************************************  +  *********■************** 
This  function  finds  the  hawser  resistance. 

♦A***************************************************************************/ 

void  hawser_resist (tug_data,  speed,  tow_res , wire_resist) 
float  *tug_data;  /*  tug  data  array  */ 

float  speed;  /*  tow  speed,  kts  */ 

float  tow_res;  /*  tow  resistance,  lbs  */ 

float  *wire_resist;  /*  hawser  resistance,  lbs  */ 

( 


int  i;  /*  dummy  counter  */ 
static  float  rho=1.9905;  /*  density  of  sea  water,  slugs/ft^  */ 
static  float  coef_n“1.4;  /*  normal  drag  coefficient  */ 
static  float  coef _t»0 .015;  /*  tangential  drag  coefficient  */ 
float  T;  /*  static  hawser  tension  */ 
float  p;  /*  weight  of  hawser  in  water,  lbs/ft  */ 
float  d;  /*  hawser  diameter,  ft  */ 
float  phi;  /*  cable  inclination  angle  */ 
float  vtow;  /*  tow  speed,  ft/sec  */ 
float  sinphi;  /*  sin (phi)  */ 
float  cosphi;  /*  cos (phi)  */ 
float  kl, drag, olddrag;  /*  intermediate  results  */ 


if  (tug  data ( 1] “-»2 . 0) 
p-6.4293; 

eloe  if  (tug_data ( 1 ) ==2 . 25) 
p**8 . 1432; 

d»tug_dat  a  f 1 ) / 1 2 . 0 ; 
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vtow=speed*l . 689; 

T=-'.ow_res; 

/*  compute  hawser  resistance  iteratively  until 
equilibrium  is  reached  */ 
for  (i=0;  i<20;  i++) 

{ 

kl  =  rho*d*vtow*vtow*T/p; 
phi=atan (p*tug_data [2] /2 . 0/T) ; 
sinphi=sin (phi) ; 
cosphi=cos (phi)  ; 

drag=kl* (coef_n* (pow (sinphi, 4) /cosphi+cosphi* (sinphi*sinphi+2 .0) 
-2 .0) +P I *coef_t* sinphi)  ; 

T  =  tow_res  +  drag; 
if  (i==0) 

{ 

olddrag=drag; 

continue; 

} 

if  (  fabs (drag-olddrag)  <  0.1)  break; 
else  olddrag=drag; 

} 

*wire_resist=drag; 


/****************************************************************** 
This  function  finds  the  ship  resistance. 

If******************************************************************/ 

void  ship_resi3t (tow_data, ship_data, res_dat, tow_res) 

float  *tow_data; 

float  *ship_aata; 

float  *res_dat; 

float  *tow  res; 


float  k;  /*  heading  coefficient  */ 

float  rel_wind_spd2 ;  /*  relative  wind  speed  squared  */ 

float  wind_res;  /*  wind  resistance,  lbs  */ 

float  vtow2;  /*  tow  speed  squared  */ 

float  vwind2;  /*  wind  speed  squared  */ 

float  alpha;  /*  supp .  angle  of  rel  wind  direction  */ 

float  wave_ht;  /*  wave  height,  ft  */ 

float  add_res;  /*  added  resistance  due  to  waves  */ 

float  hull_res;  /*  calm  water  hull  resistance  */ 

float  prop  res;  /*  propeller  resistance  */ 

float  prop_area;  /*  propeller  area  */ 

int  curve, status; 


/*  determine  heading  coefficient  */ 
if  (tow_data(3]<20.0) 
k  -  1.0; 

else  if  (tow_data(3]>«20.0  &&  tow_data ( 3] <40 . 0) 
k  «  1.2; 

else  if  (tow_data (3) >"40 . 0  &&  tow  data ( 3) <»90 . 0) 
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k  =  0.4; 
else 

k  =  0.0; 

vtow2  =  square (tow_data [1] ) ; 

/***************************/ 

/*  compute  wind  resistance  */ 

/***************************/ 

if  (tow__data(3}==0.0) 

rel_wind_spd2  =  square (tow_data ( 1 ] +tow_data [2 ]) ; 
else 
( 

vwind2  =  square (tow_data ( 2] ) ; 

alpha  =  (180.0  -  tow_data (3 ] ) *P 1/180 . 0; 

rel_wind_spd2  =  vwind2+vtow2-2 . 0*tow_data (1) *tow_data [2] *cos (alpha) 

} 

wind_res=0 . 00506*3hip_data ( 2] *ship_data (1 ) *k*rel_wind_spd2; 
res_dat  [0]=wind__res; 

/*****************************->*******)<**■♦/ 

/*  compute  added  resistance  due  to  waves  */ 
/*******************************«*****«***/ 

wave_height (tow_data [2] , &wave_ht) ; 
res_dat ( 1 ] =wave_ht; 

curve  =*  (int)  ship_data  (5]  ; 

status  =  added_res (wave_ht,  curve,  &add  res); 
if  (status<0) 
add_res=0 .0; 
res_dat (2]=add_rea; 

/**************************************/ 

/*  compute  calm  water  hull  resistance  */ 
/**************************************/ 

curve  »  (int)  ship_data (4 ) ; 

status  =*  hull_resist (tow_data (1  ] ,  curve,  tow_data (0) , &hull_res) ; 
res_dat  (3)»<hull_res; 

/********************************/ 

/*  compute  propeller  resistance  */ 

/****«***************************/ 

prop_area“ship  data  (3); 
if  (tow_data (4) "LOCKED)  ; 
else  if  (tow_data (4)  —TRAILING) 
prop_area  *»  0.5; 
else  if  (tow_data (4 ) -“REMOVED) 
prop_area  “  0.0; 
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prop_res  *  3 . 737*prop_area*vtow2; 
res_dat (4 ) =prop_res ; 


/******-******,<*******************/ 
/*  compute  '.otal  tow  resistance  */ 


*tow  res 


wind  res  +  add  res  +  hull 


/**********«•************★************************************************** 
File:  ext.c 

Author:  Todd  J.  Peltzer 
Last  update:  3  May  1939 

This  file  contains  the  functions  which  compute  the  extreme  tension 
for  a  given  combination  of  tug,  tow,  wind,  tow  speed,  hawser  scope, 
and  heading  angle . 


Functions : 
extreme () 
set_towspd() 
set_wind { ) 
set_hdg () 
set_scope () 
set_coef ( ) 
curvindex () 
stoia  () 
get_tension  < ) 
get_ext_opt ( ) 
comp__ten_curv  ( ) 
show_std_curve ( ) 
show_speed() 
show_length () 
clip ( ) 
wait_plt ( ) 

A**************************************************************************/ 

♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h"  /*  Define  aux  byte  values  for  IBM  keyboard  */ 

♦include  "video. h" 

♦include  "math.h" 

typedef  struct  Subarray 

{ 

short  c (4 ) ( 6] ; 

}  SUBARRAY; 

typedef  struct  Table 

{ 

SUBARRAY  s(4]  (3]  ; 

}  TABLE; 

typedef  struct 

( 

int  started; 

int  endcol; 

}  data_box; 

static  data_box  input {]  = 

{ 

{50,57}  /*  tension  */ 

} ; 
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static  char  *label2(}  = 

{ 

"Select  basis  for  computing”, 
"extreme  tension:", 

"Actual  mean  tension  (lbs) :  " 


static  char  *labell(]  = 

{ 

"DYNAMIC  TENSION", 

"Tug:", 

"Tow:", 

"Tabulated  tow:", 

"  Actual  Tabulated", 

"Displacement : " , 

"Tow  speed:", 

"Wind  speed:", 

"Wind  direction:", 

"Hawser  scope:", 

"Curve  number:", 

"Mean  tension:", 

"Dynamic  tension:", 

"Extreme  tension:" 

1 ; 


static  char  *menu[]  = 

( 

"1)  Estimated  mean  tension", 
"2)  Actual  mean  tension  " 


static  char  *menul(]  = 

( 

”1)  Show  standard  tension  curve  ", 
"2)  Show  effects  of  tow  speed  ", 
"3)  Show  effects  of  hawser  length", 
”4)  Return  to  PROGRAM  OPTIONS  " 

} ; 


static  char  *menu2(]  ** 

{ 

”1)  Show  graph  " 

"2)  Return  to  OPTIONS" 


static  char  *footer(]  = 

( 

"  Please  wait  ", 

"  Press  INS  to  continue  " 


static  char  *tabtow(]  « 

{ 
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"YRBM", 

* FFG  1", 
"DD  963", 
"A E  26", 
"LHA  1", 
"CVN  65" 


static  char  ext_hdr(]  =  {  "OPTIONS"  }; 

static  int  startrow=2; 
static  int  3tartcol=20; 
static  int  endrow=22; 
static  int  endcol=60; 

float  fa (4] (25] , fb[4] (25] , fc(4] (25] , fd(4] (25] ; 

static  float  towdisp{]  =  (  650.0,  3200.0,  6700.0, 

20000.0,  40000.0,  35000.0  }; 
static  float  towspd(]  =  {  3.0,  6.0,  9.0  }; 
static  float  windspd(]  =  {  15.0,  20.0,  25.0,  30.0,  }; 
static  float  winddir(]  =  {  0,  60,  120,  180  }; 
static  float  scope (]  =  {  1000,  1200,  1500,  1800,  2100  }; 

void  extreme ( ) , curvindex ( ) , set_towspd ( ) , set_wind ( ) ; 
void  set_hdg ( ) ,  set_scope ( )  ,  get_tension ( ) ,  get_ext_opt ( ) ; 
void  show_std_curve ( )  ,  show_speed ( ) ,  show_length ( ) ; 
void  comp_ten_curv ( ) ,  set_coef () , clip ( ) ,  set_tugtype ( ) ; 
void  set_towtype  () ,  wait  plt  ()  ; 


extern  char  tug[15];  /*  tug  class  */ 
extern  char  hull_no [24 ] ;  /*  hull  number  entered  by  user  */ 
extern  float  tug_data (5 J ;  /*  array  to  store  tug  data  */ 
extern  float  tow__data [ 5 ) ;  /*  array  to  store  tow  data  */ 
extern  float  ship_data [ 6] ;  /*  array  to  store  Table  G-2  data  */ 
extern  float  dock_data (7] ;  /*  array  to  store  drydock  data  */ 
extern  float  barge_data (8 ] ;  /*  array  to  store  barge  data  */ 
extern  float  ext_data ( 10] ;  /*  extreme  tension  results  */ 
extern  float  spd__data (3] [4] ;  /*  tow  speed  effects  results  */ 
extern  float  lgth_data (3] (4 ] ;  /*  hawser  length  effects  results  */ 


TABLE  t  (18] ; 

/******************************************»****************************** 
This  function  computes  the  extreme  tension  based  on  the  given 
parameters . 

*********************************A******«:*******A***-'****r****************/ 

void  extreme (type, tension, extr_ten, curve,  flag) 

int  type; 

float  ‘tension; 

float  *extr_ten; 

int  ‘curve; 

int  ‘flag; 

( 

char  inline (81); 
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char  textl (39) , text2 (39] ; 
char  string (26); 
float  n,x; 

float  tow_res, haw_res,  res_dat [5] ; 

int  i,  j ; 

int  k=0; 

int  m=0 ; 

int  nn=0; 

int  nl; 

int  nbr, status, choice; 
short  array (IS); 

FILE  *in; 

int  tugtype,  tow'cype,  windspeed,  towspeed,  head,  length,  tugtow; 
int  row,  col,  start,  startl,  key; 

in=f open ("curve .tad?",  "r")  ; 

/*  draw  background  and  border  */ 

draw_window (startrow,  startcol,  endrow,  endcol, DOUBLE, REV_VID) ; 

/*  write  header  */ 

write_header (startrow, startcol, endcol, labell (0] , REV_VID) ; 

/*  get  choice  for  basis  */ 
for  (i*0;  i<2;  i++) 

( 

start  =  (endcol-startcol-strlen (lad?e!2 { i ] ) ) /2  +  startcol; 
write_string (startrow+8+i, start, label2 (i) , REV_VID) ; 

} 

start  =  (endcol-startcol-strlen (menu (0) ); /2  +  startcol; 
choice  =  popup(menu, "12",  2,  startrow+10,  start-2,  NONE, REV_VID,  0) ; 
ext_data(9]  =  (float) choice; 

clear (startrow+8, startcol+l, endrow-3,  ondcol-1, REV_VID) ; 
if  (choice»=0)  /*  use  estimated  tension  from  App.  G  method  */ 
( 

if  (*flag==*l) 

{ 

if  (type»=SHIP) 

( 

ship_resist (tow_data,  ship_data,  res_dat,  &tow_res) ; 
hawser_resist (tug_data,  tow_data ( 1] ,  tow_res,  &haw_res) ; 
♦tension  *•  tow  res  +  haw  res; 

) 

else  if  (type"D0CK) 

dock_resist (tug_data,  dock_data, tow_data, tension) ; 

else  /*  t/pe=”BARGE  * / 

barge_resist (tug_data, barge_data,  tow_data, tension) ; 

) 

*f lag«0; 

) 

e  lse 

{ 
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*f lag=l ; 

/*  prompt  for  actual  mean  tension  */ 

write_string (startrow+8 , startcol+3,  label2 [2] , REV_VID) ; 
vid_box (startrow+8, startcol+3 +strlen (label2 [2] ) , 7) ; 
get_tension (startrow+8,  startcol+3+strlen (label2 (2] ) , tension) 
clear (startrow+8, startcol+1 , endrow-3,  endcol-1,  REV_VID) ; 

} 

/*  write  labels  */ 
for  (i=0;  i<13;  i++) 

write_string (startrow+5+i, startcol+3,  labell (i+1) , REV_VID) ; 

/*  write  footer  */ 

3tart  =  (endcol-startcol-strlen (footer (0] )) /2  +  started; 
write_string (endrow, start, footer (0) , BLINK_REV_VID) ; 

/*  set  tugtype  */ 
set_tugtype (Stugtype) ; 

/*  determine  towtype  */ 
set_towtype (Stowtype)  ; 
ext_data [0] = (float) towtype; 
ext_data(l)=towdisp(towtype] ; 

/*  set  tow  speed  */ 
set_towspd(tow_data (1] , Stowspeed) ; 
ext_data(2]=towspd(towspeed] ; 

/*  set  wind  speed  */ 

3et_wind(tow_data [2] , Swindspeed) ; 
ext_data (3] “windspd (windspeed] ; 

/*  set  heading  angle  */ 
set_hdg(tow_data(3] , Shead) ; 
ext_data(4)=winddir (head] ; 

/*  set  hawser  scope  */ 
set_scope (tug_data(2] , Slength) ; 
ex^dataJSJ^scope  (length] ; 

/*  compute  tug-tow  combination  index  */ 
tugtow  =  towtype  +  6*tugtype; 

/*  set  up  coefficient  array  */ 
set_coef ( ) ; 

/*  read  in  data  table  for  curve  numbers  from  curve. tab  */ 
for  (nn=0;  nn<18;  nn++) 

( 

for  (m«=0;  m<4;  m++) 

( 

for  (k’0;  k<4;  k++) 

( 

fgets (inline, 81, in) ; 
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while (inline (0] ==  '!') 
fgets (inline, 81, in) ; 


/*  skip  comments,  headers,  etc.  */ 


/*  convert  string  to  array  of  short  integers  */ 
status=stoia (inline, array, &nbr , 15) ; 

/*  assign  curve  numbers  to  data  structure  */ 
for  ( j=0;  j<3;  j++) 

{ 

for  (i=0;  i<5;  i++) 

t(nn) .s(m) ( j] .c(k) (i)  =  array[i  +  j*5); 

} 

) 

) 

} 

/*  compute  i, j  corresponding  to  curve  number  */ 

‘curve  =  t (tugtow) . s (windspeed) (towspeed) .c (head) [length] ; 
ext_data(6]  =  ‘curve; 
ext_data(7]  =  *tension/1000 . 0 ; 

curvindex (‘curve, &i, &  j) ; 

x=(*tension) / 100000 .0; 

/***************************/ 

/*  compute  extreme  tension  */ 

/***************************/ 

*extr_ten  =  100 . 0* (x+£a (i ) ( j) *x/ (1 . 0+fb ( i) ( j) *x) 

+  fc(i]  (  j)  *x*x*x*x/  (1.0+fd(i)  (  j)  *x*x*xyx) ) ; 

ext_data(8)  =  *extr_ten; 

/*  check  magnitude  of  extreme  tension  */ 
if  (*extr_ten>400 .0) 

( 

/*  erase  blinking  footer  */ 

start  ■=  (endcol-startcol-strlen  (footer  (0) )) /2  +  started; 
for  (k=0;  k<  strlen (footer (0) ) ;  k++) 
write_char (endrow, start, 205, REV_VID) ; 

/*  display  error  message;  return  to  previous  menu  */ 
sprintf (textl, "Predicted  extreme  tension  >  400  kips"); 
sprintf (text2, "=«>  SLOW  DOWN,  PAYOUT,  OR  BOTH  <==”); 
display_error (ERROR,  textl,  text2) ; 
cursor^of f ( ) ; 
return  ; 

> 

/*  print  result  */ 

write_string (itartrow+5, atartcol+4+strlen ( label 1 ( 1) ) , tug, REV_V1D) ; 

write  string (startrow+6, startcol+4+strlen ( label 1 { 2) ) , hull  no,  REV_VID) ; 

write  string (startrow+7 , startcol+4+strlen (labell ( 3 ) )  ,  tabtow (towtype ) ,  REV^VID) 

sprintf (string, "%8 . Of  %8.0f", tow_data ( 0) , towdisp (towtype) ) ; 
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writs_string (startrow+9, startcol+3+15,  string, R£V_VID) ; 

sprintf (string, "%8 . If  %8 . If " , tow_data ( 1] . towspa (towspeed) ) ; 
write_string (3tartrow+10,  startcol+3  +  15,  string,  REV_VID) ; 

sprintf (string, "%8 . Of  %8 . Of " ,  tow_data [2] , windspd [windspeed] )  ; 
write_string (startrow+ll,  startcol+3  +  15,  string, REV_VID) ; 

sprintf (string, "%8 . Of  %8.0f",tow  data (3) , winddir (head) ) ; 
write_string(startrow+12, startcol+3+15, string, REV_VID) ; 

sprintf (string, "%8 .Of  %8 . Of” , tug_data (2] , scope (length) ) ; 
write_string (3tartrow+13,  startcol+3+15,  string, REV_VXD) ; 

sprintf (string, "%d" ,  ‘curve)  ; 

write  string (startrow+14, startcol+15+strlen (labell(lO)) , string, REV_VID) : 
sprintf (string, "%10 -2f ", *tension/1000 .0) ; 

write_string(startrow+15,  startcol+4+3+strlen (labell ( 11) )  ,  string,  REV_VID) ; 

x  =  *extr_ten  -  *tension/1000 . 0 ; 
if  (X  <  0.0  ) 
x  =  0.0; 

sprintf (string, "%10 -2f ", x) ; 

write_string (startrow+16,  startcol+4+strlen (labell (12) ) ,  string,  REV__VID) ; 
sprintf (string, "%10 .2f ", *ej  tr_ten) ; 

write_string (startrow+17,  startcol+4+strlen (labell (13) ) , string, REV_VID) ; 
for  (i=0;  i<3;  i++) 

write_string (startrow+15+i,  startcol+15+strlen (labell [ 13) ) , "kips" , REV_VID) ; 

pause  (startrow,  started,  endrow,  endcol,  footer  ( 1) ,  REV_VID) ; 
return; 

} 

/at******************************-************* 

This  function  sets  the  tug  type  index. 
*********************************************/ 
void  set_tugtype (tugtype) 
int  * tugtype; 

( 

if  (tug_data (0) ==0) 

*tugtype«0; 

else  if  (tug_data (0)»»1  ||  tug_data (0 ] =«2) 

* tugtype- 1; 
else 

*tugtype=2; 

> 

/★**************!**★**★*******★*************** 

This  function  sets  the  tow  type  index. 

★A*******************************************/ 

void  set_towtype (towtype) 
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int  "towtype; 

{ 

int  j=C; 

while  (1) 

{ 

if  (tow_data(0]  <  towdisp(O))  { 

*towtype>-!0; 

break; 

) 

el'<e  if  (tow_data  [C]"=tov/disp  ( j  ] )  { 

*towtvpe= j; 
break; 

> 

else  if  (tow_aata{0]  >  towdisp(j))  { 
if  <j<5)  { 

if  (tow_data{0]  >  towdisp(j)  &&  tow_data[0]  <  towdispl j+1] ) 
if  (tow__data(Oj  >  0 . 75*towdisp [ j+1 j  )  { 

*towtype= j+1; 
break; 

} 

else  { 

*towtype*»  j; 
break; 

} 

} 

else  { 

j++; 

continue; 

> 

} 

else  ( 

*towtype= j; 
break; 

} 

} 

else  { 

;++-• 

continue; 

} 

} 

} 

/*****************************tfr************** 

This  function  sets  the  tow  speed  index, 
a*****************************************,,**/ 

void  set_towspd (speed, towspeed) 

float  speed;  /*  tow  speed  */ 

int  "towspeed;  /*  tow  speed  index  */ 

( 

if  (speed<4.5) 

*towspeed“0; 

else  if  (speed>“4.5  &&  speed<7.5) 

"towspaed-1 ; 


263 


else 


■'rtow3peed>=2 ; 

} 

I  *  ******************************************* 

This  function  sets  the  wind  speed  index. 
*********************************************/ 
void  set_wind (wind, windspeed) 
float  wind;  /*  wind  speed  */ 

int  *windspeed;  /*  wind  speed  index  */ 

{ 

if  (tow_data(2]<17.5) 

*windspeed=0; 

else  if  (wind>=17.5  SS  wind<22.5) 

*windspeed=l; 

else  if  (wind>=*22.5  &&  wind<27.5) 

*windspeed=2; 

else 

*windspeed=3 ; 

} 

/******************************************** 

This  function  seta  the  heading  index. 

************************************>f********/ 

void  3et_hdg (hdg, head) 

float  hdg;  /*  heading  angle  */ 

int  *head;  /*  heading  angle  index  *1 

( 

if  (tow_data [3] <40 . 0) 

*head=0 ; 

else  if  (hdg>=40.0  &&  hdg<70.0) 

*head=l ; 

else  if  (hdg>=110.0  &&  hdg<140.0) 

*head=2; 

else 

*head=3 ; 

} 

/******************************************** 

This  function  sets  the  length  index. 
*********************************************/ 
void  set_scope (scope,  length) 

float  scope;  /*  hawser  length  */ 

int  *length;  /*  hawser  length  index  */ 

( 

char  textl (39) , text2 (39) ; 

if  (scope<1000 . 0) 

( 

/*  no  data  for  shorter  scope  */ 

sprintf (textl, "No  data  for  scopes  less  than  1000  ft") 
display_error (WARN, textl, "  ") ; 

) 

else  if  (scope>«1000 . 0  S&  scope<1200 . 0) 
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-'length=0  ; 

else  if  (scope>=1200 . 0  &£  scope<1500 . 0> 

*length=l ; 

else  if  (scope>=1500 . 0  &&  scope<1800 . 0) 

*length=2; 

else  if  (scope>=1800 . 0  &&  scope<2100 . 0) 

*length=3; 

else 

*length=4 ; 

} 

This  function  sets  up  the  coefficient  arrays  for  computing  the 
standard  curves  for  extreme  tension. 

*****rt**********rt*rt*rt*******tf**rt***rt*rt'***rtrt*rtrt*rt*rt************ft*,***rt***rtrtrt/ 

void  set_coef() 

{ 

int  i; 
float  n,nl; 

for  (i=0;  i<25;  i++) 

{ 

n=  (float) i; 
fa(0) [i]  =  0 .  3*n; 
if  (i>7) 

{ 

nl  =  n-7.0; 

fa (0) { i ]  +=  0.00013*nl*nl*nl*nl; 

} 

fb ( 0] (i]  =  0.0; 
f c (0] (i]  =  0.0; 
fd(0] [i]  =  0.0; 

fa(l)(i]  =  0.6*n+0.0003*n*n*n; 

fb ( 1]  (i]  =  3.0; 

fc(l] (i)  =  0.0; 

fd(l] (i)  =  0.0; 

fa (2)  (i]  *■  O.ll^n; 

if  (i>7) 

( 

nl  =  n-7.0; 

fa(2)(i)  +»  0.0002*nl#'nl*nl’>nl; 

} 

fb [ 2] (i)  -  3.0+0. ll*n; 
fc(2) (i)  -  20 .0*fa(2J (i); 
fd(2) (i)  -  5.0; 
fa (3)  (i)  =  0 . 03  *n; 
if  (i>7) 

( 

nl  =  n-7.0; 

fa(3) [i]  +-  0.00014*nl*nl*nl*nl; 

) 

fb(3) [i]  -  5. 0+0. 04 *n; 
fc ( 3) (i)  =  80.0*fa(3) (i); 
f d { 3 J  (i)  =  6.0; 
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I 


> 


} 

/*★***  -V**************************#********-«r******x***********rt************ 

This  function  takes  a  "standard  curve"  number  and  converts  it  to 
its  component  indices . 

ft*************************************************************************/ 

void  curvindex (curve, i, j) 
int  curve; 
int  *i; 
int  * j; 

{ 

if  (curve<25)  *i=0; 

else  if  (curve>24  &&  curve<50)  *i=l; 
else  if  (curve>49  &&  curve<75)  *i=2; 
else  if  (curve>74  &&  curve<100)  *i=3; 

(*j)  =  curve  -  25*  (*i); 

; 

/*********■************■»************************»************************»* 
This  function  gets  the  user' s  input  for  the  data  requested  in  the 
function  extreme().  Uses  screen_getstring ( )  for  screen  I/O.  Some  data 
checking  is  performed  for  each  data  type. 

★  ★★a**-**************************************-*  *.  .  ***************************  j 

void  get_tension (row, col, data) 
int  row; 
int  col; 
float  *data; 

( 


int  nbr; 

/* 

required  arg  for  3tofa() 

*/ 

int  status; 

/* 

takes  return  value  for  stofaO 

*/ 

char  string(24]; 

/* 

input  string 

*/ 

char  textl (39),  text2 (39) ; 

/* 

error  message  text 

*/ 

int  j,  k; 

/* 

counters 

*/ 

cursor_on  () ; 

/* 

turn  on  cursor 

*/ 

goto_xy (row, col) ; 

/* 

move  cursor  to  start  of  box 

*/ 

/*  get  user  input  */ 

screen_getstrg (0,  row,  col,  string, NORM_VID, input) ; 

/*  check  for  valid  numeric  input  */ 
for  (k>=0;  k<strlen  (string) ;  k-H-) 

( 

if  (  string (k]“"'  .'  )  ; 

else  if  (string (k) <' 0'  II  string [ k) >' 9' ) 

( 

sprintf (textl , " Invalid  entry;  try  again"); 

display_error (ERROR,  textl,  "  ")  ; 

vid_box (row, col, 7) ; 

get_tension (row, col, data) ; 

return  ; 

} 

) 
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/*  if  input  string  contains  valid  numbers  only,  */ 

/*  convert  string  to  float  */ 
status  =  stofa (string, data, &nbr, 1) ; 

/******************************„******************/ 
/*  check  data  for  consistency  */ 

/*************************************************/ 
if  (*data<0.0) 

{ 

sprintf (textl, "Invalid  entry;  try  again"); 
display_error (ERROR, textl , "  " ) ; 
vid_box(row, col, 7) ; 
get_tension (row, col, data) ; 
return  ; 

} 

if  ( *data>l 00000) 

{ 

sprintf (textl, "Mean  tension  is  beyond  the  valid"); 

sprintf (text2, "range  of  input — please  try  again"); 

display_error (ERROR, textl,  text2) ; 

vid_box(row,  col,  7)  ; 

get_tension (row,  col,  data) ; 

return; 

} 


cursor_of f ( )  ; 
goto_xy (0,0); 


This  function  displays  a  popup  menu  which  lists  the  graphics  options 
available  in  this  module. 


void  get_ext_opt (flag,  type, curve,  mean, ext, hilite) 


int  flag; 
int  type, curve; 
float  mean,  ext; 
int  hilite; 

( 


/* 

/* 

/* 


indicates  estimated  or  actual  mean  selected  */ 
tow  type,  std  curve  number  */ 
mean,  extreme  tensions  */ 


/*  popup  menu  choice  to  highlight  */ 


int  choice, start; 
int  i, j; 

char  textl (39) , text2 (39] ; 


cursor_of f () ; 

/*  draw  background  and  border  */ 

draw_window  (startrow,  started,  endrow,  ended,  DOUBLE,  REV_VID)  ; 

/*  display  popup  menu  */ 

start  ••  (endcol-startcol-strlen (menul (0) ) ) /2  +  starccol; 
write  header  (startrow,  started,  ended ,  ext_hdr ,  REV_VID)  ; 
choice-popup (menul, "1234", 4 .  start row+5, start-2,  NONE, REV_VID, hilite) ; 

if  (choice--0) 
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{ 

curvindex (curve, &i, & j) ; 
show_std_curve (i,  j, curve,  mean, ext) ; 
get_ext_opt (flag,  type, curve, mean, ext, 1) ; 

} 

else  if  (choice==l) 

{ 

curvindex (curve, £i, & j) ; 
if  (flag) 

{ 

sprintf (textl, "This  option  uses  only  predicted"); 
sprintf (text2,  "mean  tensions") ; 
display_error (WARN, textl,  text2) ; 
cursor_off () ; 

) 

show_speed (type,  i,  j,  curve)  ; 
get_ext_opt (flag,  type,  curve,  mean,  ext,  2) ; 

} 

else  if  (choice*>=2) 

( 

curvindex (curve, &i, & j) ; 
if  (flag) 

( 

sprintf (textl , "This  option  uses  only  predicted"); 
sprintf (text2, "mean  tensions") ; 
display_error (WARN, textl,  text2) ; 
cursor_off () ; 

} 

show_length (type,  i,  j,  curve) ; 
get_ext_opt (flag, type, curve, mean, ext,  3) ; 

} 

else  return; 


/a************************************************************************ 
This  function  displays  the  extreme  tension  curve  corresponding  to 
the  conditions  specified  for  the  given  tug  and  tow. 
a*************************************************************************/ 


void  show_std_curve (i, j , curve, mean, ext) 
int  i,j, curve; 
float  mean, ext; 

{ 


int  k; 

float  x[121) , y ( 12 1 } ; 

float  xl,yl,x2,y2; 

char  labx(25] , laby(25j ; 

short  kd"2; 

short  npts; 

short  ntx=2,nty=l; 

short  itype; 

short  nsym; 

float  x0i»1.0764; 

float  yOi-l.O; 

float  xli-6.624; 


/*  dummy  counter  */ 

/*  arrays  to  hold  x,  y  coordinates  */ 

/*  coordinates  for  drawing  lines  */ 

/*  strings  for  x,  y  axis  labels  V 
/*  graph  "kode"  */ 

/*  number  of  points  to  plot  */ 

/*  skip  factor  for  axis  numbers  */ 

/*  designates  x  or  y  axis  label  in  label () 
/*  symbol  code  */ 


*/ 
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float  yli=4.35; 
float  xmn=0.0; 
float  xmx=120.0; 
float  xtc=10.0; 
float  ymn=0.0; 
float  ymx=400.0; 
float  ytc=50.0; 
float  xjtmax; 
float  xsm, ysm; 


/*  min  x  value  */ 

/*  max  x  value  */ 

/*  x  axis  tic  value  */ 

/*  min  y  value  */ 

/*  max  y  value  */ 

/*  y  axis  tic  value  */ 

/*  x  corresponding  to  y=400.0  kips  */ 

/*  smallest  x, y  in  world  coordinates  */ 


xsm  =  xmn  -  (xOi/xli) * (xmx-xmn) ; 
ysm  =  ymn  -  (yOi/yli) * (ymx-ymn) ; 
mean  /=  1000.0;  /*  convert  to  kips  */ 

setpltO;  /*  initialize  graphics  */ 

locate (6x0i, 5y0i, 6xli, 6yli) ;  /*  set  position  on  screen  */ 

xyaxis (6xmn, 6xmx,  &xtc, 6ymn, 6ymx, 

6ytc, &xmn, 6ymn,  5kd) ;  /*  draw  axes  */ 

axnum (Sntx, &nty) ;  /*  write  axis  numbers  */ 

itype=l; 

sprintf (labx, "Mean  Tension  (kips)_">; 

label (6itype, labx) ;  /*  write  x-axis  label  */ 

itype=2; 

sprintf (laby, "Extreme  Tension  (kips)_"); 

label  (Sitype,  laby)  ;  /*  write  y-axis  label  */ 

comp_ten_curv (i,  j ,  x,  y)  ;  /*  compute  curve  pts  */ 


clip (x, y) ; 


/*  clip  curve  above  400kips  */ 


npts=122; 

line3 (6npts, x, y) ; 


/*  draw  line  thru  pts  */ 


/*  don't  plot  points  if  mean  tension  >  120  kips  */ 
if  (m«an<=!  20 . 0 ) 

( 

npts=l;  /*  plot  symbol 

x(0]  =  mean;  /*  value  of  ex 

y  10]*  ext; 

nsym=3;  /*  use  diamond 

symplt \ 6npts, x,  y, 6naym) ; 


xl=  mean; 
yl=0 .  0; 
x2*»  mean; 
y2=  ext; 

drawu (6x1, 6yl, 6x2, Sy2) ; 


/*  plot  symbol  at  computed  */ 

/*  value  of  extreme  tension  */ 

/*  use  diamond  as  data  symbol  */ 


/*  draw  line  */ 


xl=0 . 0; 
yl=  ext; 
x2=  mean; 
y2=  ext; 

drawu (6x1, 6yl,  6x2,  6y2  ; 


/*  draw  line  */ 


xl*5 .0; 
yl-  380.0; 


/*  write  label  */ 
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spri.ntf  (labx,  "Curve  No.  %d_", curve); 
labely (4x1, 4yl, labx) ; 

/*  wait  for  keystroke,  then  exit  */ 
wait_plt ( ) ; 

} 

/**xrt**rt*******rt**********rt*****rt****x***A**-**********»**-*rt*********rtx**** 

This  function  shows  the  effects  of  speed  on  extreme  tension  by 
computing  the  mean  tension  for  Vtow  +/-  1.0  kt3,  finding  the  appropriate 
extreme  tension  curves,  and  displaying  a  graph  of  all  three  curves. 

A  summary  of  results  is  displayed  prior  to  displaying  the  graphs. 

★ar************************************************************************/ 

void  show_speed (type,  i,  j,  curve) 

int  type; 

int  i,j, curve; 

{ 

float  x_hi ( 12 1 ) , x_lo ( 121 ] , y_hi (121],  y_lo ( 121]; 
float  x(121],y[121); 

float  tension_hi, tension_lo, extr_hi, extr_lo; 

float  mean, ext; 

float  spdhi, spdlo, oldspd; 

int  tugtype, towtype, tugtow, windspeed, head, length; 
int  towspdhi, towspdlo; 
int  curve_hi,  i_hi, j_hi; 
int  curve_lo, i_lo, j_lo; 


int  k, 

/* 

dummy  counter  */ 

float 

xl,yl,x2,y2; 

/* 

coordinates  for  drawing  */ 

char  labx (25] , laby(25] ; 

/* 

strings  for  x,  y  axis  labels  */ 

short 

kd=2; 

/* 

graph  "kode"  */ 

short 

npts; 

/* 

number  of  points  to  plot  */ 

short 

ntx=2, nty°l; 

/* 

skip  factor  for  axi3  numbers  */ 

short 

itype; 

l* 

designates  x  or  y  axis  label  in  label () 

3hort 

nsym; 

/* 

symbol  code  */ 

float 

x0i=l .0764 ; 

float 

y0i=l .0; 

float 

xli=6 . 624 ; 

float 

yli=4 .35; 

float 

xmn=*0 . 0  ; 

/* 

min  x  value  */ 

float 

xmx»120.0; 

/* 

max  x  value  */ 

float 

xtc»10 .0; 

/* 

x  axis  tic  value  */ 

float 

ymn-0 . 0 ; 

/* 

min  y  value  */ 

float 

ymx»400.0; 

1* 

max  y  value  */ 

float 

ytc«50 .0; 

/* 

y  axis  tic  value  */ 

float 

xxmax ; 

/* 

x  corresponding  to  y“400.0  kips  */ 

float 

res_dat (5) ; 

float 

tow  res, haw  res; 

float 

xx ; 

float 

xsm, ysm; 

/* 

smallest  x, y  in  world  coordinates  */ 

int  start, choice; 

xam  -  xmn  -  (xOi/xli) * (xmx-xmn) ; 
ysm  *•  ymn  -  (yOi/yli)  *  (ymx-ymn)  ; 
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/*  write  message  */ 

draw_window (startrow+ll, startcol+12,  startrow+13,  3tartcol+27 , 
SINGLE, REV_VID) ; 
sprintf  (labx,  "Please  wait")  ; 

start  =  (endcol-startcol-st  rlen  (labx)  )  /2  +  started; 
write_string (startrow+12,  start,  labx,  BLINK_REV_VID) ; 

/*  set  speeds  */ 
oldspd=tow_data { 1 ) ; 
spdlo  =  tow_data(l] -1 .0; 
if  (spdlo  <=  0.0) 
spdlo  =  1.0; 

spdhi  =  tow_data(l) +1 .0; 
if  (spdhi  >  12.0) 

3pdhi  =  12.0; 

/*  compute  mean  tension  */ 
if  (type==SHIP) 

{ 

/*  —  for  higer  speed  */ 
tow_data ( 1] -spdhi; 

ship_re3ist (tow__data, ship_data,  res_dat,  &tow_res) ; 
hawser_resist (tug_data,  spdhi,  tow_res, &haw_res) ; 
ten3ion_hi  =  tow_res  +  haw  res; 

/*  —  for  lower  speed  */ 
tow_data ( 1] =spdlo; 

ship_resist  (tow__data,  ship_data,  res_dat,  Stow__res)  ; 
hawser_resist (tug_data, spdlo, tow_res, &haw_res) ; 
tension_lo  =  tow_res  +  haw_res; 

/*  —  for  given  speed  */ 
tow_data ( 1 ] -oldspd; 

ship_resist (tow_data, ship  data,  res_dat, Stow  res); 
hawser_resist (tug_data,  oldspd, tow_ros, &haw_res) ; 
mean  =  tow_res  +  haw_res; 

} 

else  if  (type~=DQCK) 

t 

/*  —  for  higer  speed  */ 
tow_data ( 1 ] “spdhi ; 

dock_rosi3t (tug_data,  dock_data,  tow_data, Stension_hi) ; 

/*  —  for  lower  speed  */ 
tow_data ( 1] -spdlo ; 

dock_resist (tug  data, dock_data, tow_data, Stension  lo) ; 

/*  —  for  given  speed  */ 
tow_data [ 1 ) ^oldspd; 

dock_resist (tug_data,  dock_data,  tow_dnta,  &mean)  ; 

) 

else  /*  type--BARGE  */ 

{ 

/*  —  for  higer  speed  */ 
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tow_data [ 1) =spdhi; 

barge_resist (tug_data,  barge_data,  tow_data, &tensio.\_hi) ; 

/*  —  for  lower  speed  */ 
tow_data ( 1 ] =spdlo; 

barge_resist (tug_data,  barge_data, tow_data, 6tension_lo> ; 

/*  —  for  given  speed 
tow_data { 1 ] =oldspd; 

barge_resist (tug_data, barg«_data,  tow_data. Smean) ; 

) 

/*  convert  to  kips  */ 
tension_lo  /=  1000.0; 
tension_hi  /=  1000.0; 
mean  /—  1000.0; 

/*  set  common  indices  */ 
set_tugtype (&tugtype) ; 
set_towtype ( Atowtype) ; 
tugtow  =  towtype  +  6*tugtype; 

set_wind(tow_data(2]  ,  Swindspeed) ; 
set_hdg (tow_data [3]  ,  Shead) ; 
set_scope (tug_data(2] , Slength) ; 

/*  find  curve  for  spdhi  */ 
set_towspd (spdhi,  Stowspdhi) ; 

curve_hi=t (tugtow] . s (windspeed] (towspdhi) .c(head] [length]; 
curvindex (curve_hi, &i_hi, & j_hi) ; 

/*  find  curve  for  spdlo  */ 
set_towspd (spdlo,  Stowspdlo) ; 

curve_lo=t (tugtow) . s (windspeed] (towspdlo] .c[head) [length); 
curvindex (curve_lo,  &i_lo, & j_lo) ; 

/*  compute  tension  arrays  */ 
comp_ten_curv (i_hi,  j_hi,  x_hi,  y_hi) ; 
clip (x_hi , y_hi) ; 

comp_ten_curv (i_lo,  j_lo, x_lo, y_lo) ; 
clip (x_lo, y_lo) ; 
comp_ten_curv (i, j, x, y) ; 
clip (x, y) ; 

/*  compute  extremes  */ 
xx  «  tension_hi/100 .0; 

extr_hi  *  ICO .0* (xx+fa [ i _ hi ] ( j_hi] *xx/ (1 . 0+fb [i_hi]  [  j _ hi J *xx)  + 

fc ( i_hi] ( j_hi] *pow (xx, 4 .0) / (1 .0+ 
fd( i_hi) ( j_hi] *pow (xx, 4 .0) ) ) ; 

xx  *»  tension_lo/100 . 0; 

extr_lo  »  100 .0* (xx+fa ( i_lo] ( j_lo] *xx/ { 1 . 0+fb (i_lo) ( j_lo) *xx) + 
fc(i_lo] ( j_lo] *pow(xx, 4 .0) / (1.0+ 
fd [ i_lc] ( j_lo] *pow (xx, 4.0))); 
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xx  =  mean/100.0; 

ext  =  100 .0* (xx+fa [ i] [ j ] *xx/ (1 . 0+fb { i ] { j] *xx) + 
fc ( i] [ j ] *pow (xx, 4.0)/ (1.0+ 
fd(i) ( j ) *pow (xx, 4.0) >); 

/*  save  results  */ 
spd_data(0] (0)=spdlo; 
spd_data(l) (0]=oldspd; 
spd_data(2) (0}=spdhi; 
spd_data(0) ( 1 ) =curve_lo; 
spd_data[l] (l)=curve; 
spd_data(2) (l]=curve_hi; 
spd_data[0] (2]=tension_lo; 
spd_data(l] (2]-=mean; 
spd_data(2) [2)=tension_hi; 
spd_data(0] (3)=extr_lo; 
spd_data(l] [3]=ext; 
spd_data(2) [3]=extr_hi; 

/*  print  results  on  screen;  give  option  to  graph  */ 
clear (startrow+1, startcol+1, endrow-1, endcol-1, REV_VID) ; 
write_header (startrow, startcol, ended, labell (0) , REV_VID) ; 

I  *  —  write  labels  */ 

write_string(.jtartrow+5,  startcol+2,  labell (6) ,  REV_VID) ; 
write_stringi startrow+7, startcol+2, labell (10) , REV_VXD) ; 
write_string (startrow+8,  startcol+2,  labell (11) , REV_VID) ; 
write_string (startrow+9, startcol+2, labell (12) , REV_VID) ; 
write_s*-ring (startrow+10, startcol+2, labell ( 13) , REV_VID) ; 

/*  —  write  tow  speeds  */ 
sprintf (labx, "%6 . If" , spdlo) ; 
start=startcol+2+strlen (labell(13))+l; 
write_string(startrow+5, start, labx, REV_VID) ; 
sprintf (labx, "%6. If", oldspd) ; 
start=startcol-r2+strlen  (labell  ( 13 ) )  +1+7 ; 
write_string (startrow+5, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ", spdhi) ; 
st6rt“startcol+2+strlen (labell (13) ) +1+14; 
write_string(startrowr5, start,  labx, REV_VID) ; 

/*  —  write  curve  numbers  */ 
sprintf (labx,  "%d",  curve_lo) ; 
start«startcol+2+strlen (labell (13) ) +1+3; 
write_strir.g(startrow+7,  start,  labx,  REV_VID)  ; 
sprintf (labx, "%d", curve) ; 

start-startcol+2-i  strlen  (labell  ( 13 )  )  +1+7+3; 
write_string(startrow+7, start,  ledsx, REV_VID) ; 
sprintf (labx, "%d" , curve_hi) ; 
start=startccl+2+strlen (labell (13) )+l+14+3; 
write_string(startrow+7, start, labx, REV_VID) ; 

!*  --  write  mean  tensions  */ 
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sprintf (labx, "%6. If",  tension_lo) ; 

3tart=startcol+2+strlen  (labell ( 13 ] ) +1 ; 
write_string (startrow+8,  start.,  labx,  REV_VID)  ; 
sprintf (labx, "%6 . If", mean) ; 
start=3tartcol+2+strlen (labell ( 13 ) ) +1+7 ; 
write_string(startrow+8,  start,  labx, REV_VID) ; 

3printf (labx, "%6. If",  tension_hi) ; 
start=startcol+2+strlen (labell ( 13 ) ) +1+14 ; 
write_string(startrow+8, start, labx,  REV_VID) ; 

/*  —  write  dynamic  tensions  */ 

xx  =  extr_lo  -  tension_lo; 

if  (xx< 0)  xx=0; 

sprintf (labx, "%6. If", xx) ; 

start=startcol+2+strlen (labell(13])--l; 

write_string (startrow+9, start, labx, UEV_VID) ; 

xx  =  ext  -  mean; 

if  (xx<0)  xx=0 • 

sprintf (labx, "%6. If", xx) ; 

start=startcol+2+strlen (labell (13] ) +1+7; 

•.’rite_string  (startrow+9,  start,  labx,  R£V_VID)  ; 
xx  =  extr_hi  -  tension_hi; 
if  (xx<0)  xx=0; 
sprintf (labx, "%6. If",  xx) ; 
start=startcol+2+strlen (lal-ell ( 13] ) +1+14; 
write_string (startrow+9, start,  lcdsx,  REV_VID) ; 

/*  —  write  extreme  tensions  */ 
sprintf (labx,  "%6. If",  extr_lo) ; 
start=startcol+2+strlen (labell ( 13] ) +1; 
write_string (startrow+10, start,  labx,  REV_VID) ; 
sprintf (labx, "%6. If",  ext) ; 
start=startcol+2+strlen  (latbell  (13] )  +1+7; 
write_string (startrow+10, start, labx, REV_VID) ; 

3printf (labx, "%6. If",  extr_hi) ; 

3tart=startcol+2+strlen (labell[13])+l+14; 
write_string(startrow+10, start, labx, REV_VID) ; 

/*  —  give  menu  to  graph  or  quit  */ 

start  =  (endcol-startcol-str’  en  (menu2  (0] )  ) /2  +  started; 
choice=popup (menu2, "12" , 2 , start row+12 ,  start-2,  NONE, REV_VID, 0) ; 


if  (choice>»“l) 
return; 

else  if  (choice=»=0) 


setplt  ( ) ; 

locate (&x0i, SyOi, &xli, &yli) ; 

.  yaxis (&xmn, &xmx, &xtc, &y>nn, &ymx, 
&ytc, &xmn, &ymn, &kd) ; 
axnum(&ntx, Snty) ; 
itype=l ; 

sprintf (labx, "Mean  Tension  (kips) 
label (Sitype, labx)  ; 


/*  initialize  graphics  */ 

/*  set  position  on  screen  */ 

/*  draw  axes  */ 

/*  write  axis  numbers  */ 

) ; 

/*  write  x-axis  label  */ 


i 
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itype*2; 

sprintf (laby, "Extreme  Tension  (kips)_"); 

label (Sitype, laby) ;  /*  write  y-axis  label  */ 

npts=122; 

line3 (Snpts, x_hi, y_hi) ;  /*  draw  line  thru  pts  */ 

line3 (Snpts, x_lo, y_lo) ; 
line3 (Snpts ,  x, y) ; 

/*  if  mean  >  120  kips,  don't  plot  points  */ 
if  (tension_lo<=120 .0) 

{ 

npts=l;  /*  plot  symbols  */ 

x_lo(0]=  tension_lo; 
y_lo[0]=  extr_lo; 
nsym=4; 

symplt (Snpts,  x_lo, y_lo,  Snsym) ; 

} 

x_lo(0]=  30.0; 
y_io[0]=  ysm+5; 

symplt (Snpts, x_lo,  y_lo,  Snsym) ; 

if  (mean<=120 .0) 

{ 

x(0]=  mean; 
y (0 ] =  exr; 
nsym=3 ; 

symplt (Snpts, x,  y,  Snsym) ; 

} 

x  [0]=  55.0; 
y  (0  ]  =  ysm+5; 

symplt (Snpts, x, y, Snsym)  ; 

if  (tension_hi<=120 .0) 

{ 

x_hi(0]=  tension_hi; 
y_hi ( 0 ] =  «xtr_hi ; 
nsym=2; 

symplt (Snpts, t_hi, y_hi,  Snsym)  ; 

} 

x_hi  [0]  =»  80.0; 
y_hi[0]»  ysm+5; 

symplt (Snpts, x_hi, y_hi,  Snsym) ; 

/*  write  labels  */ 
xl=  35.0; 
yl=  ysm; 

sprintf  (labx,  "%-.0f  kts_",spdlo)  ; 
labely(Sxl, Syl, labx) ; 
xl=  60.0; 
yl=  ysm; 

sprintf  (labx,  "%- .  Of  kt>>_" ,  oldspd)  ; 
labely (Sxl, Syl, labx) ; 
xi**  85.0; 
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yl=  vsm; 

sprintf  (labx,  "%-.0f  kts_,;,  spdhi)  ; 
labely (&xl, &yl, labx) ; 

wait_plt () ; 

} 

else 

return  ; 

) 

y'***********************v*********x*'******''Jc**xx***-*******x************x*** 

This  function  shows  the  effects  of  hawser  length  on  extreme  censior 
by  computing  the  mean  tension  for  Length  +/-  300  feet,  finding  the 
appropriate  extreme  tension  curves,  and  displaying  a  graph  of  all  three 
curves.  A  summary  of  results  is  displayed  prior  to  displaying  the  graphs. 

★a***********************************************************************-*/ 

void  show  length (type, i, j , curve) 

int  type; 

int  i, j, curve ; 

{ 

float  x_hi (121), x_lo [121] , y_hi (121) , y_lo [121] ; 
float  x { 121 j , y ( 121] ; 

float  tension_hi,  tension_lo, extr_hi, extr_lo; 

float  mean, ext; 

float  hilgth,  lolgth,  oldlgth; 

int  tugtype, towtype, tugtow, windspead, head, towspeed; 
int  lengthhi,  lengthlo; 
int  curve_hi,  i_hi, j_hi; 
int  curve_lo,  i_lo,  j  lc; 

int  k;  /*  dummy  counter  */ 

float  xl,yl,x2,y2;  /*  coordinates  for  drawing  */ 

char  labx(25j , laby (25} ;  /*  strings  for  y  axis  labels  */ 

short  kd=2 ;  /*  graph  "kode"  */ 

short  npts;  /*  number  of  points  to  plot  */ 

short  ntx=2,nty=l;  /*  skip  factor  for  axis  numbers  */ 

short  itype;  /*  designates  x  or  y  axis  label  in  label  ()  */ 

short  nsym;  /*  symbol  code  */ 

float  x0i=1.0764; 

float  y0!=1.0; 

float  xli=6.624; 

float  yli<=4.35; 

float  xmn=>0.C;  /*  min  x  value  */ 

float  xmx«120 .0;  /*  max  x  value  */ 

float  xtc»!0.0;  /*  x  axis  tic  value  V 

float  ymn=0.0;  /*  min  y  value  */ 

float  ymx=400.0;  /*  max  y  value  */ 

float  ytc=50.0;  /*  y  axis  tic  value  */ 

float  xxmax;  /*  x  corresponding  to  y=400.C  tips  */ 

float  ; 

float  res__dat(5); 
fioat  tow  res,haw_res; 
float  xx; 
float  xsm, ysm; 
int  start, choice; 
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xsm  =  xmn  -  (xOi/xli)  *  (xmx-xmn)  ; 
ysm  =  ymn  -  (yOi/yli) * (ymx-ymn) ; 

/*  write  message  */ 

draw_window (startrow+11 , startcol+12 , startrow+13 , startcol+27 , 
SINGLE, R£V_VID)  ; 
sprintf (labx, "Please  wait") ; 

start  =  (endcol-startcol-strlen (labx) ) /2  +  started; 
write_string(startrowi-12,  start,  labx, BLINK_REV_VID) ; 

/*  set  hawser  lengths  */ 
oldlgth*=cug_data [2]  ; 
lolgth=tug_data (2) -300 . 0; 
if  (lolgth<1000 .0) 
lolgth=1000 . 0 ; 
hilgth=tug_data (2] +300 .0; 
if  (hilgth>2100 .0) 
hilgth=2100 . 0; 

/*  compute  mean  tension  */ 
if  (type==SHIP) 

( 

ship_resist (tow_data,  ship_data,  res_dat, &tow_res) ; 

/*  —  for  longer  length  */ 
tug_data (2) =hilgth; 

hawser_resist (tug_data,  tow_data (1] ,  tow_res, &haw_res) ; 
tension_hi  =  tow_res  +  haw_res; 

/*  —  for  shorter  length  */ 
tug_data  ( 2]  =>lolgth; 

hawser_resist (tug_data,  tow_data ( 1 ] , tow  res,  &haw_res) ; 
tension_lo  =  tow_res  +  haw_res; 

/*  —  for  given  length  */ 
tug_data ( 2 ] =oldlgth ; 

hawser_re3i3t (tug_data, tow_data (1) ,  tow_res, &haw_res) ; 
mean  =  tow^res  +  haw_res; 

) 

alse  if  (type==D0CK) 

/*  —  for  longer  length  */ 
tug_da*"a  (2)=hiigth; 

dock_re8ist (tug_data,  docx_data,  tow_data, &tensior_hi) ; 

,+  for  shorter  length  */ 
tug_aate ( 2 ] =lclgth ; 

docx_resist (tug_dat a, dock_dat a, tow_data, ^tension  io) ; 

/*  —  for  given  length  */ 
tug_data  ( 2 )  »oi  i.'  qt’n; 

dock_xcsi &t (tug  data,  dock  data,  tow  data,  Smear) ; 
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/*  type==<BARGE  */ 


else 

{ 

/*  —  for  longer  length  */ 
tug_data ( 2 ] =hilgth; 

barge_resist (tug_data,  fcarge_data, tow_data, &fensior._hi) ; 

/*  —  for  shorter  .length  */ 
tug_data (2) =lolgth; 

barge_resist (tug_dara,  barge_data,  tow_data, &ten3ion_io) ; 

/*  —  for  given  length  */ 
tug_data ( 2 J  =oldlgth; 

barge_resist (tug_data,  barge_data, tow_data, fimean) ; 


/*  convert  to  kips  */ 
tension_lo  /=  1000. 0; 
tansion_hi  /=  100G.0; 
mean  /=  1000.0; 

/ *  set  common  indices  */ 
set_tugtype (Stugtype) ; 
set_towtype (& towtype) ; 
tugtow  =  towtype  +  6*tugtype; 

set_towspd(tow_data (1] ,  Stowspoed) ; 
set_wind (tow_data (2] , Swindspee'1) ; 
set_hdg (tow_data (3]  ,  Shead) ; 

/*  find  curve  for  hilgth  */ 

3et_scope (hilgth,  Slengthhi) ; 

curve_hi’--t  (tugtow]  .  s  (wii-dspeod]  (towspeed]  .c[head]  (lengthhi; , 
curvindex (curve_hi, 6i_hi, & j_hi) ; 

/*  find  curve  for  loigth  */ 
sot_3cope (loigth,  Slengthlo) ; 

curve_lo=t (tugtow] . s (windspeedj [towspeed] ,c[head] (lengthlc) : 
curvindex (curve_lo,  Si_.lo,  £j_lo)  ; 

/ *  compute  tension  arrays  */ 
comp_ten_curv (i_hi, j_hi,  x_hi,  y_hi) ; 
clip (x_hi, y_hi) ; 

ccmp_ten_curv (i_lo, j_lo,  x_lo, y_lo) ; 
clip (x_lo, y_lo) ; 
comp_ten_curv (i, j, x, y) ; 
clip (x, y) ; 

/*  compute  extremes  */ 
xx  =  tension_hi/100 .0; 

extr_hi  =  100 .0* (xx+fa ( i_hi] ( j_hi] *xx/ (1 . 0+fb ( i _ hi ] ( j_hi] *xx) + 

fc(i_hi)  (  j  _hi]  *pow(xx,  4 .0) / (1 .0+ 
fd(i_hi] ( j_hi] *pow(xx, 4.0))); 
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xx  =  tension  lc/100.0; 


extr_lo  =  100 .0* (xx+£a [i_lo] [ j_lo] *xx/ (1 .O+fb [i_lo] { j_lo] *xx) + 
fc (i_lo]  ( j_lo] *pow(xx,  4 .0) / (1 .0  + 
fd(i_loj ( j_lo) *pow (xx,  4 .0) ) ) ; 

xx  =  mean/ i 00.0; 

ext  =  100 .0* (xx+fa [ i) [ j ] *xx/ (1 . 0+fb [i] { j] *xx) + 
fc[i] ( j] *pow(xx, 4 .0) / (1.0+ 
fd(i] ( j] *pow(xx, 4.0})); 

/*  save  results  */ 
lgth_aata[0] [0]=lolgth; 
lgth_aata[l] (0]=oidlgth; 
lgth_data(2) (0)=hilgth; 
lgth_data [0] ( 1] =curve_lo; 
lgth_data ( 1 ] ( 1 ] =curve ; 
lgth_data{2) (l]=curve_hi; 
igth_data [0 J [2] =tension  lo; 
lgth_data[l] (2]=mean; 
lgth  data (2) (2) =tension_hi; 
lgth_data(0] (3)=extr_lo; 
lgth_data(l] [3]=ext; 
lgth_data(2] [3]=extr_hi; 

/*  print  results  on  screen;  give  option  to  graph  */ 
clear (startrow+l, startcol+l, endrow-1, endcol-1 , REV_VID) ; 
writn_hsader (startrow, startcol, ended, labell (0) , REV_VID) ; 

/*  —  write  labels  */ 

write_string(startrow+5, start col+2, labell (9) , REV_VID) ; 
write_string (startrow+7,  startcol+2,  labell [10]  ,REV_VID) ; 
write_string(startrow+8, startcol+2,  labell [11] , REV_VID) ; 
write_string (startrow+9, startcol+2, labell[12] ,REV_VID) ; 
write_string(startrow+10, startcol+2, labell(13] , REV_VXD) ; 

/*  —  write  hawser  lengths  */ 
sprintf (labx, "%6.0f ", lolgth) ; 
start=startcol+2+strler.  (labell  ( 13] )  +1; 
write_string(startrow+5,  start,  labx,  REV_VID)  ; 
sprintf  (1  abx,  "%6 .  Of  " ,  oldlgth)  ; 

3tart-startcol+2+strlen (labell ( 13] ) +1+7; 
write_string (startrow+5,  start, labx,  REV_VID) ; 
sprintf (labx. "%6 . Of", hilgth) ; 
start=srartcol+2+strlen (labell [13] ) +1+14; 
write_string (startrow+S, start, labx, REV_VID) ; 

/*  —  write  curve  numbers  */ 
sprintf (labx, "%d" ,  curve__lo) ; 
start=startcol+2+strlen (J abell (13] j +1+3; 
write_string (startrow+7, start, labx, REV_VID) ; 
sprintf (labx, "%d" , curve) ; 

st  art=startcol+2+strlen (labell[13])+l+7+3; 
write_string( startrow+7,  start, labx, REV_VID) ; 
sprintf (labx, "%d" , curve_hi) ; 
start*=3tartcol+2+strlen (labell [13] ) +1+14+3; 
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write_str ing ( startrow+7 , start, labx,  REV_VID) ; 

/*  —  write  mean  tensions  */ 
sprintf (labx, "%6 . If", tension_lo) ; 
start=startcol+2+strlen  (labell (13] )  +1; 
write_string(startrow+8, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ",  mean) ; 
start=startcol+2+strlen (labell (13) ) +1+7; 
write^string (startrow+8 ,  start, labx,  REV_VID) ; 
sprintf  \l*bx, "%6 . If", tension_hi) ; 
start=startcol+2+strlen (labell (13] ) +1+14; 
write_string(startrow+8,  start,  labx,  REV_VID) ; 

/*  —  write  dynamic  tensions  */ 

xx  =  extr  lo  -  tension_lo; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6 . If", xx) ; 

start=startcol+2+strlen (labell (33] ) +1; 

write_string (startrow+9, start, labx,  REV_VID) ; 

xx  =  ext  -  mean; 

if  (xx<0)  xx=0; 

sprintf (labx, "%6 . If " , xx) ; 

start=startcol+2+strlen (labell [13] ) +1+7; 

write_string (startrow+9, start, labx,  REV_VID) ; 

xx  »  extr_hi  -  tension_hi; 

if  (xx<0)  xx^O; 

sprintf (labx, "%6 . If ",  xx) ; 

start=startcol+2+strlen (labell (13] ) +1+14; 

wrire_string (startrow+9, start, labx,  REV_VID) ; 

/*  --  write  extreme  tensions  */ 
sprintf (labx, "%6 . If", extr_lo> ; 
start-startcol+2+strlen (labell ( 13] ) +1; 
write_string(startrow+10, start, labx, REV_VID) ; 
sprintf (labx, "%6 . If", ext) ; 
start=startcol+2+strlen ( labell ( 13 j ) +1+7; 
write_string(startrow+10, start, labx, REV_VID) ; 
sprintf (labx, "%6. If ", extr_ni) ; 
start=startcol+2+strlen  (labell (13] ) +1+14; 
write_string(startrow+10,  start,  labx,  REVJ/ID) ; 

/*  —  give  menu  to  graph  or  quit  */ 

start  =  (endcol-startcol-strlen (menu2 (0) ) )/2  +  3tartcol; 
choice-popup (menu2, "12" , 2, startrow+12 , 3tart-2 , NONE, REV_VID, C) ; 

if  (cboice==l) 
return; 

else  if  (choice-=0) 

{ 

setplt();  /*  initialize  graphics  */ 

locate (&x0i, &y0i, &xli, Syli) ;  /*  set  position  on  screen  */ 

xyaxis (&xmn, Sxmx, Sxtc, Symn, Symx, &ytc, Gxmn, &ymn, &kd) ;  /*  draw  axes 

axnum (&ntx, finty) ;  /*  write  axis  numbers  */ 

itype-1; 
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sprintf (labx, "Mean  Tension  (kips)_"); 

label (Sitype, labx) ;  /*  write  x-axis  label  */ 

itype=2; 

sprintf (laby, "Extreme  Tension  (kip3)_">; 

label (Sitype, laby) ;  /*  write  y-axis  label  */ 

npts=122; 

line3 (Snpts, x_hi, y_hi) ;  /*  draw  line  thru  pts  */ 

line3  (Snpts, x_lo,  y_lo) ;  /*  "  */ 

line3 (Snpts, x, y) ;  /*  "  * / 

/*  don't  plot  points  if  mean  tension  >  120  kips  */ 
if  (tension_lo<=120 .0) 

{ 

npts=l;  /*  plot  symbols  *i 

x_lo(0}  =  tension_lo; 
y_lo(0]=  extr^lo; 
nsym=4; 

symplt (Snpts,  x_lo,  v_lo,  Snsym) ; 

} 

x_lo ( 0] =  30.0; 
y_lo[0]=  yi.m+5; 

symplt (Snpts,  x_lo,  y  lo, Snsym) ; 

if  (mean<=120 .0) 

{ 

x(0]  =  mem; 
y (0 ] —  ext; 
n3ym*3; 

symplt (Snpts, x,  y, Snsym) ; 

} 

x[0]=  55.0; 
y ( 0 ) =  ysm+5 ; 

symplt (Snpts, x, y,  Snsym;  ; 

if  (tension^ lo<=120 .0) 

( 

x_hi  [  0 )  =  -cans ion_hi ; 
y__hi(0]«=  exfcr_hj.; 
nsym-2; 

symplt (Snpts, x_hi, y_hi, Snsym) ; 

} 

x_hi(0]»  80.0; 
y_hi(0]=  ysm+5; 

symplt (Snpts,  x_hi,y_hi,  Snsym) ; 

/*  write  labels  */ 
xl  =  35.0; 
yl=  yarn; 

sprintf (labx, ”1- . Of  ft_", lolgth) ; 
labely ( Sxl, Syl, labx) ; 
xl=  60.0; 
yl~  ysm; 

sprintf  (labx,  . Of  ft_:i,  oldlgth1  ; 
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labely (&xl, &yl, labx)  ; 
xl=  35.0; 
yl=  ysm; 

sprintf (labx, "%-.0f  ft_",  hilgth) ; 
labely(&xl,  Syl,  labx)  ; 

wait_plt ( ) ; 

} 

else 

return  ; 


/*********■************************************************■** 
This  function  computes  the  array  of  points  to  plot  for 
the  standard  tension  curve  indicated  by  i  and  j. 

★★I**********************************************************/ 

void  comp_ten_curv (i, j, x,  y) 
int  i , j ; 
float  *x,  *y; 

{ 

int  k; 
float  xl; 

for  (k=0;  k<121;  k++) 

{ 

x(k)=(float)k; 
xl=x[k] /100 .0; 

y(k)=  100.0* (xl+f a [ i) ( j ) *xl/ ( 1 . 0+fb ( i } ( j)*xl) 

i*  fc(i] ( j) *xl*xl*xl*xl/(1.0+fd(i) ( j)*xl*xl*xl*xl) ) 

> 

) 

/****.************************»<***************)*•>************* 
This  function  finds  the  intersection  of  a  plotted  curve 
with  the  top  border  and  "clips"  it  to  keep  everything 
within  the  borders  of  the  graph. 

************************* ***********************************/ 
void  clip(x,y) 
float  *x, *y; 

{ 

int  flag»0; 
int  k; 

float  xl,  x2, yl, y2, xxmax; 

/*  test  for  extreme  >  400  kips  */ 
for  (k-0;  k<121;  k++) 

( 

if  (y (k) <=400 .0) 

( 

xl=x(k] ; 
yl=y(k) : 

) 

else  if  Uflag  &&  y(k)>400.0) 

{ 


282 


x2=x(k} ; 
y2=y(k]  ; 
f lag=l; 

/*  interpolate  to  find  x:xnax  */ 
xxmax=xl+ (x2-xi) / (y2-yl) * (400 . 0  -  yl) ; 

/*  set  next  plotting  point  to  intersection  of  curve  with  border  */ 
y (k)=400.0; 
x (k} =xxmax; 

} 

else 

{ 

y (k]=400.0; 

} 

} 

} 

/*********************************************************** 

This  function  pauses  until  the  user  hit3  a  key,  then 
closes  the  graphics  environment. 

******rt****^*************rt**********************************/ 

void  wait_plt() 

( 

union  inkey  { 
char  ch(2] ; 
int  i; 

)  c; 


while  (1) 
{ 


c.i  =  bioskey(O); 

/* 

if  (c.ch(0) ) 

/* 

break; 

else 

/* 

break; 

ndplt () ; 

read  the  key  */ 

key  is  a  normal  key  */ 

key  is  a  special  key  */ 

/*  close  graphics  */ 


283 


/*************************-*/'***************ilr*********************'***i't*****-'  *  ★ 

File:  pull.c 

Author:  Todd  J.  Peltzer 

Last  update.  24  April  1989 

This  file  contains  the  functions  which  evaluate  a  tug's  ability  to  tow 
a  given  vessel  at  a  specified  speed. 


Functions : 
tugpull 0 
show_tugpull ( ) 
find_avail <) 
get_tugpull_opt () 
tugpull_scrn ( ) 
tugpull_data ( ) 

************************x*************rt***************rtxrt************  •***  **•*★*  j 

♦  include  "stdio.h" 

♦include  "keydef.h" 

♦include  "video. h" 

void  tugpull \)  , show_tugpull () , tugpull_scrn Q , tugpull_data () ; 
float  find  avail  (); 


extern  char  tug [15];  /*  tug  class  */ 
extern  char  hull_no[24];  /*  hull  number  entered  by  user  */ 
extern  float  tug_daoa [5] ;  /*  array  to  store  tug  data  */ 
extern  fioat  tow_data [5] ;  /*  array  to  store  tow  data  */ 
extern  float  ship_data[6] ;  /*  array  to  store  Table  G-2  data  */ 
extern  float  dock_data[7] ;  /*  array  to  store  drydock  data  */ 
extern  float  barge_data (8 ] ;  /*  array  to  store  barge  data  */ 
extern  float  tug_eval(7];  /*  tug  evaluation  results  */ 


static  int  startrow*=2; 
static  int  startcol=20; 
static  int  endrow=22; 
static  int  endcol=60; 

static  char  *menu(]  = 

( 

"1)  Use  best  possible  speed  ", 
"2)  Use  original  tow  speed  ", 
"3)  Show  graph  ", 

”4)  Return  to  PROGRAM  OPTIONS" 

} ; 

static  char  *labell()  =» 

{ 

"TUG  EVALUATION", 

"Tug:", 

"Tow: ", 

"Desired  tow  speed:", 

"Mean  tension:", 

"Available  tension:", 

"Best  tow  speed:”, 
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Please  wait 


}  ; 

/***********************************************************&************* 
This  function  compares  the  mean  towline  tension  with  the  available 
towline  tension  for  the  given  tug  at  the  specified  tow  speed.  If  there 
is  insufficient  tension  available,  the  tow  speed  is  reduced  until  the 
available  tension  exceeds  the  mean  towline  tension. 

ft*************************************************************************/ 

void  tugpull (type, tension) 

int  type;  /*  type  of  tow:  ship,  dock,  or  barge  */ 

float  ‘tension;  /*  mean  towline  tension  */ 

{ 


FILE  *in; 

/* 

pointer  to  input  file 

*/ 

int  flag*0; 

/* 

status  flag 

*/ 

int  i, j; 

/* 

counters 

*/ 

int  tugtype; 

/* 

type  of  tug 

*/ 

char  inline  (81); 

/* 

string  for  getting  input 

*/ 

char  textl (37) , text2 (37) ; 

/* 

error  message  text  strings 

*/ 

char  string (25); 

/* 

text  string 

*7 

float  array (5); 

/* 

input  data  array 

*/ 

float  status, nbr; 

/* 

required  arguments  for  stofa () 

*/ 

float  speed (20); 

/* 

array  of  tow  speeds 

*/ 

float  avail [4] (20) ; 

/* 

array  of  available  tensions 

*/ 

float  avail__ten; 

/* 

return  value  of  find_avail() 

*/ 

float  old_avail; 

/* 

value  used  in  iteration  scheme 

*/ 

float  vtow  avail; 

/* 

available  tension  at  vtow 

*/ 

float  best_avail; 

/* 

available  ten:  ion  at  best  speed 

*/ 

float  old  mean; 

/* 

value  used  in  iteration  scheme 

"/ 

float  vtow; 

/* 

tow  speed 

*/ 

float  mean  **  ‘tension; 

/* 

tension  at  original  tow  speed 

*/ 

float  best  mean; 

/* 

tension  at  best  speed 

*/ 

float  best  spd; 

/* 

best  possible  speed 

*/ 

float  res_dat(5); 

/* 

required  arg.  for  ship_resist ( ) 

*/ 

float  tow  res, haw  res; 

/* 

tow,  hawser  resistance 

*/ 

int  choice; 

/* 

popup  menu  selection 

*/ 

int  3tart,hilite»0; 

in=fopen( "tugpuU.dat",  "r")  ; 

vtow=tug_eval ( 0 ] »tow_data ( 1 ] ; 
tug_eval(l]  “  ‘tension; 

/*  draw  screen,  labels,  preliminary  data  */ 
tugpull_scrn(vtow,mean) ; 

/*  read  available  to*:  tension  data  from  file  */ 
fgets (inline, 81, in) ; 
fgets (inline, 81, in) ; 
for  (i=0;  i<20;  i++) 

( 

fgets (inline, 31, in) ; 

status  =  stofa (inline, array, &nbr, 5) ; 
speed [ i ] «array (0) ; 
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for  ( j=0;  j<4;  j++) 

( 

avail { j] (i]=array[ j+1); 

} 


/*  find  available  tow  tension  for  given  tow  speed  */ 
tugtype=tug_data ( 0  ] ; 

avail_ten=f ind_avail (tugtype, vtow, speed, avail) ; 
vtow_avail=tug_eval [2  ] =avail_ten; 
if  (avail_ten  <  0.0) 

( 

sprintf (textl, "Tow  speed  outside  the  limits  of"); 

sprintf (textl, "Figure  6-1"); 

display_error (ERROR, textl . text2 ) ; 

get_options (1)  ; 

return; 

) 

/*  write  available  tension  */ 

3tart=startcol+3-i  strlen  (Isbell  (3] )  +5; 
sprintf (string, "%6 . Of " ,  avail_ten) ; 
write_string (3tartrow+9, start, string, R£V_VID) ; 

/*  compare  moan  tension  to  available  tension  */ 
i=*0; 

old_avail=avail_ten; 
old_mean  =  ^tension; 
while (1) 

( 

best_spd=tow_data [l]=speed!i) ; 
if  (type==SHIP) 

{ 

ship_resist (tow_data,  ahip_data,  res_dat, &tow_res) ; 
hawser_resist (tug_data,  tow_data (1) , tow_res, Shaw__res) 
♦tension  =  tow_ros+'naw_res  ; 

} 

else  if  (typo==>D0CK) 

( 

dock_resist (tug_data,  dock_data,  tow_data,  tension)  ; 

) 

else  /*  typo»=BARGE  *i 

{ 

barge_resist (tug_data,  barg*_data, tow_data, tension) ; 

) 

avail_ten=f ind_avail (tugtype,  best_spd,  speed,  avail)  ; 

if  (avail_ten  <  0.0) 

( 

sprintf (textl, "Tow  speed  outside  the  limits  of"); 
sprintf (text2, "Figure  6-1"); 
display_error (ERROR,  textl,  text2) ; 

) 
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else  if  (avail_ten  <  ‘tension) 

{ 

best_spd*speed(i-l]  ; 
best_avail=avail_ten=oid_avail; 
best_mean  =  ‘tension  =  old_mean; 
break; 

} 

else 

{ 

old_avail=avail_ten; 
old_mean= ‘tension; 
i  h+; 

} 

) 

/*  erase  wait  message  */ 

clear  (startrow+15 ,  startcol+12,  startrow-t-17 ,  startcol+27,  REV_VID) 

/*  write  best  possible  speed  */ 
start=startcol+3+strlen (labell [3] )  +5; 
sprintf (string, "%6 . If" , best_spd) ; 
write_string(startrow+ll, start, string, REV_VID) ; 

/*  write  mean  tension  */ 

sprintf (string, "%6.0f", ‘tension) ; 

write_string (startrow+12,  start,  string,  REV_VID) ? 

/*  write  available  tension  */ 
sprintf (string,  "%6.0f",best_avail) ; 
write_strina (startrow+13,  start,  string, REV_VID) ; 

/*  write  units  */ 
start=endcol-5 ; 
sprintf (string, "kts") ; 

write_string(startrowrll, start, string, REV  VID) ; 
sprintf (string, "lbs") ; 

write_striny (startrow+12,  start, string,  REV_VID) ; 
write_string (startrow+13,  start,  string, REV_VID) ; 

/*  save  results  */ 
tug_eval(3]»best_spd; 
tug_eval  ( 4  ]  »best_meari ; 
tug_eval (5) »best_avail; 

/‘  display  options,  gat  response  */ 
while  (1) 

( 

choico»get_tugpull_opt (hilite) ; 

if  (choice»“0)  /*  use  best  possible  speed  */ 

( 

tow_data ( 1 ) »best_  spd; 

‘tension«best_mean; 
tug_eval ( 6) "0; 
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hilite=2; 

£lag=l; 

sprintf (textl, "Beet  possible  tow  speed  set"); 
display_error (BLANK, textl , "  " ' ; 
cursor_o££ ( ) ; 
continue; 

} 

else  if  (choice==l)  /*  use  original  tow  speed  */ 

1  if  (vtow_avail<mean)  /*  can't  make  desired  speed  */ 

sprintf (textl, "Tug  has  inadequate  pull  at  this  speed"); 

sprintf  (text2,  "=>  choose  best  speed  option  <=="); 

display_error  (ERROR,  textl ,  text?.) ; 

hilite=0; 

f lag=0; 

cursor_of f () ; 

continue; 

> 

tow_data ( 1 ] =vtow; 

*tension=me an; 
tug_evai  ( 6  ]  =*1 ; 
hilite=2; 
flag=l; 

sprintf  (textl, ’’Original  tow  speed  set")  ; 
display_error (BLANK,  textl,  "  "); 
cursor_off () ; 

} 

else  if  (choice==2)  /*  show  graph  */ 

{ 

if  (!fiag)  /*  speed  not  chosen  */ 

sprintf (textl, "Tow  speed  has  rot  been  selected"); 

sprintf (text2, "=*>  please  choose  a  tow  speed  <=="); 

display_error (ERROR, textl , text2) ; 

hilite=0; 

cursor_of f ( ) ; 

continue; 

show_tugpull (speed,  avail, vtow,  best_spd, vt ow_a va i 1 , b e s t_a va i 1 ) 

hilite«3; 

cursor_of f () ; 

tugpull  sern (vtow, mean) ; 

tugpull_data (vtow_avail, best_spd,  best_mean,  best_avail) ; 
continue; 

} 

else  if  (choice==3  ( |  choice<0) 

{ 

if  ((flag)  /*  speed  not  chosen  */ 

{ 

sprintf (textl, "Tow  speed  has  not  been  selected"); 
sprintf  (text2,  "—>  please  choose  a  tow  speed  <=="); 
display  «rror (ERROR, textl, text2) , 
hilite=0; 
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cursor_off ()  ; 
continue; 

} 

brv.  ak; 

} 

> 

cursor_of f () ; 
return; 

} 

/★***************************K***************x**r*******x-****tt****  *  ******* 

This  function  finds  the  available  tension  from  the  given  tag  at  the 
given  speed. 

***x******rt**************-********************,************************r****/ 

float  f  ir.d_avail  (tug,  vtow,  speed,  avail) 

ir,t  tug; 

float  vtow; 

float  *speed; 

float  avail(}(20); 

( 

int  i; 

float  avail_ten; 
float  delx, fac; 

for  ( i=0 ;  i<20;  i++) 

{ 

if  (vtow*=speed (i) ) 

{ 

avaii_ten=avail (tug) (i); 
return  avail_ten; 

} 

else  if  (vtow<speed (i) ) 
continue; 

else  if  (vtow>speed(i)  &&  vtow<speed( i+1) ) 

{ 

delx=*speed  ( i+1)  -  speed(L); 
fac=(vtow-speed(i] ) /delx; 

avail_ten= (avail (tug) (i+1 ] -avail (tug) (i) ) *fac+avail (tug) (i) ; 
return  avail_ten; 

} 

} 

return  -1.0; 

} 

/*****★******★*★************★***************★***************************** 
This  function  displays  the  options  available  and  returns  the  user's 
choice . 

****w*********************************************************************/ 

get_tugpull_opt (hilite) 
int  hilite; 

( 

int  choice, start; 

/*  write  options  menu  */ 
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start=  (andcol-atartcol-strler.  (menufO] ) ) /2  +  started; 

choice. =popup (menu,  "1234 ",  4 ,  startrow+14 , start- 2, NONE, REV_VID, hiiite) ; 

return  choice; 

} 

/Jr***********************-******************************************-******-* 

This  function  displays  a  reproduction  of  Figure  6-1  in  the  Towing 
Manual,  showing  available  tension  versus  tow  speed  for  each  class 
of  tug  used  in  this  program  (ATF  is  not  used)  ; 

*****?r*-*********x*************************-'*********f»**’**jc****'**'*  +  x**:r****'¥ 

void  show_tugpuil (speed, avail, vtow, best  spd, vtow  avail, best_avaii) 

float  ’'speed; 

float  avail ()[2C); 

float  vtow, best_spd; 

float  vtow_avail, best_avaii; 

{ 

int  j,k;  /*  dummy  counter  */ 

float  x ( 101 ] , y ( 101] ;  /*  arrays  to  hold  x,  y  coordinates  */ 

float  xl,yl,x2,y2;  /*  coordinates  for  drawing  lines  */ 

char  labx (25] , laby ( 25 ] ;  /*  strings  for  x,  y  axis  labels  */ 

short  kd=2;  /*  graph  "bode"  */ 

short  npts;  /*  number  of  points  to  plot  */ 

short  ntx=2,nty=2;  /*  skip  factor  for  axis  numbers  */ 

short  itype;  /*  designates  x  or  y  axis  label  in  label  ()  */ 

short  nsym;  /*  symbol  code  */ 

float  x0i=1.07S4;  /*  screen  parameters  */ 

float  yOi=l .0;  '*  ”  "  */ 

float  xli=6 . 624 ;  /*  "  "  */ 

float  yli=4 .35;  /*  "  "  */ 

float  xmn=0.0;  /*  min  x  value  */ 

float  xmx=16.0;  /v  max  x  value  */ 

float  xtc=2.0;  /*  x  axis  tic  value  */ 

float  ymn=0.0;  /*  min  y  value  */ 

float  ymx=200.0;  /*  max  y  value  */ 

float  ytc=25.0;  /*  y  axis  tic  value  *! 

float  xxmax; 

float  xsm,ysm;  /*  smallest  x, y  in  world  coordinates  */ 


xsm  =  xmn  -  (xOi/xli) * (xmx-xmn) ; 
ysm  =  ymn  -  (yOi/yli) * (ymx-ymn) ; 

setplt ( ) ; 

locate (&x0i, &y0i,  Sxli,  Syli)  ; 
xyaxis (sxmn, Sxmx, &xtc, &ymn,  &ymx, 
Sytc, Sxmn, &ymn,  &kd) ; 
axnum(&ntx, &nty) ; 
i  typed ; 

sprintf (labx, "Tow  Speed  (kts)_") 

label (Sitype, labx) ; 

itype=2; 

sprintf (laby, "Available  Tension 
label (Sitype, laby) ; 


/*  initialize  graphics  */ 

/*  set  position  on  screen  */ 

/*  draw  axes  */ 

/*  write  axis  numbers  */ 

/*  write  x-axis  label  */ 
(kips)_")  ; 

/*  write  y-axis  label  */ 
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npts=2j.; 

for  (k=0;  k<4;  k++) 

( 

for  ( j=0;  j<20;  j++> 

{ 

x[ j)=speedi j) ; 
y{ j]=avaii(k] ;j}/1000.0; 

} 

line3 'Snpts, x,  y) ; 


xl=  speed i4  3 ; 

yl=  avail [3] (4J/1C00. 0+5.0; 
sprintf  (labx,  "T-ATF  166_")  ; 
labely (Sxl, Syl, labx) ; 

xl=  speed [2]; 

yl=  availflj [23/1000.0-20.0; 
sprintf (labx, "ARS  50J')  ; 
labeiy(Sxl, Syl, labx) ; 

xi=  speed [123; 

yl=  availl2) [123/1000. 0+5.0; 
sprintf (iabx, "ATS  1_") ! 
labely (Sxl,  Syl,  labx)  ; 

xl=  speed [2 3; 

yl=  avail (0) [2]/1000. 0+5.0; 
sprintf (labx,  "ARS  3  8_") ; 
labely (Sxl,  Syl,  labx)  ; 

/*  plot  symbols  */ 
npt s=l ; 
xl=  vtow; 

yl=  vtow_avail/1000 . 0 ; 
nsym=4 ; 

symplt (Snpts,  Sxl,  &yl, Snsym) ; 
xl=  3.0; 
yl=  ysm+2.5; 

symplt (Snpts,  Sxl, syl, Snsym) ; 
xl=  best_spd; 

y 1=  best_a"ail/1000 .0; 
nsym=2; 

symplt (Snpts,  Sxl, Syl, Snsym) ; 
xl=  10.0; 
yl=  ysm+2.5; 

symplt (Snpts,  Sxl,  Syl, Snsym) ; 

/*  write  labels  */ 
xl=  4.0; 
yl=  ysm; 

sprintf (labx, "Desired  Speed"); 
labely (Sxl, Syl, labx) ; 
xl=  11.0; 


/*  draw  line  thru  pts  */ 


I*  write  labels  */ 
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yl=  yam; 

sprintf  (labx,  "Bast  Speed" )  ; 
labely(&xl, &yl, labx) ; 

/*  wait  for  keystroke,  then  exit  */ 
wait  Dlt(); 


/*************xx*********************************-<****rt*******rt*********** 

This  function  creates  the  tug  evaluation  display. 

********x***************-************rt****************'*********************/ 

void  tugpull_scrn (vtow, tension) 
float  vtow, tension; 

{ 

int  i, start; 
char  string{25]; 

draw_window  (startrow,  started,  endrow,  ended,  DOUBLE,  REV_VID)  ; 

/*  write  header  */ 

write_header (startrow, started,  endcol, labell (0) ,REV_VID) ; 

/*  write  labels  */ 
for  (i=l;  i<6;  i++) 

write__3tring  (startrow+4+i,  startcd+3,  labell  (i) ,  REV_VID)  ; 

/*  draw  dividing  line  */ 

for  (i=0;  i< (endcol-startcol-S) ;  i++) 

write_char (startrow+10,  startcol+3+i, 196, REV_VID) ; 

/*  write  remaining  labels  */ 

write_string(startrow+ll,  startcol+3, labell [ 6) , REV_VID) ; 
write_string(startrow+12,  startcdi-3,  labell  [4] ,  REV_VID)  ; 
write_string (startrow+13, startcol+3 , labell (5) , REV_VID) ; 

/*  write  tug  and  tow  */ 
start=startcoi +3+strlen ( labell ( 1 ] ) +2 ; 
writ.e_string(startrow+5, start, tug, REV_VID) ; 
write_string(startrow+6, start, hull_no, REV_VXD) ; 

/*  v;rite  desired  tow  speed,  mean  tension  */ 
start-startcd+3+strlen  (labell  (3] )  +5; 
sprintf (string, "%6. If",  vtow) ; 

write_string (startrow+7 , start, string, REV_VID) ; 
sprintf (string, "%6 . Of", tension) ; 
write_string(startrow  -8,  start, string,  REV_VID) ; 

/*  write  units  */ 
start-endcol-5; 
sprintf (string, "kts") ; 

write_string (startrow+7 , start, string, REV_VID) ; 
sprintf (string, "lbs"); 

write_string (startrow+8, start, string, REV_VID) ; 
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write_string (startrow+9, start, string, REV_VID) ; 

/*  write  wait  messagt  */ 

draw_window (startrow+15, startcol+12, startrow+17, start col+27, 
SINGLE, REV_VID) ; 
sprintf (string, "Please  wait") ; 

start  =  (endcol-startcoi-strlen  (string)  ) /2  +  started; 
wr ite_string (3tartrow+16, start, string, 3LINK_REV_VID) ; 
return; 


/*********ir*****1’-Kir**-t:-K*-k>>*****i'******-***>**i'*********x******  +  **-K*x-**-t'**** 

This  function  writes  the  z-ssults  of  the  tug  evaluation  on  the  screen. 

********-*******************r**W******************«*************W*-*  +  X*KW*W«/ 

void  tugpull  data (vtow_avail, best_spd, best_mean, best_avail) 

float  vtow_avail; 

float  best_spd; 

float  best_mean; 

float  best_avail; 

{ 

int  start; 
char  string [25]; 

/*  erase  wait  message  */ 

clear (startrow+15, startcol+12, startrow+17, startcol+27, REV_VID) ; 

/*  write  available  tension  */ 
start=startcol+3+strlen (labell (3] )  +5; 
sprintf (string, "% 6 . Of", vtow_avail) ; 
write_string (srartrow+9, start, string, REV_VID) ; 

/*  write  best  possible  speed  */ 
start=startcol+3+strlen (labell (3] ) +5; 
sprintf (string, "%6 . If" , best_spd) ; 
write_3tring (startrow+11, start, string, REV_VID)  ; 

/*  write  mean  tension  */ 

3printf (string, "%6 . Of ", best_mean)  ; 
write_string(startrow+12, start, string,  REV_VID) ; 

/*  write  available  tension  */ 
sprintf (string, "%6.0f",best_avail) ; 
wnte_string(3tartrow+13,  str.rt,  string,  REV_VID)  ; 

/*  write  units  */ 
start=endcol-5; 
sprintf (string,  "kts")  ; 

write_string  (startrow+ll, start, string, REV_VID) ; 
sprintf (string, "lbs") ; 

write_string (startrow+12 , start, string, REV  VID) ; 
write_string(startrow+13, start, string, REV_VID) ; 
return; 
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/fr***************************'***************************************-** 


File:  ro.c 

Author:  Todd  J.  Peltzer 
l^st  update:  19  April  1989 

This  file  contains  the  functions  which  generate  a  report  and  3end 
it  to  the  printer 


Functions : 
report ( ) 

♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "string. h" 

♦include  "video. h" 

void  report (); 

static  char  *tabtow(j  = 

{ 

"YR3M", 

"FFG  1", 

"DD  963", 

"AS  26", 

"LHA  1", 

"CVN  65" 

} ; 

extern  chav  tuq[15]; 
extern  char  hull_no(24]; 
extern  char  class(24]; 
extern  float  tua_data(5]; 
extern  float  tow_data(5]; 
extern  float  ship_data [ 6) ; 
extern  float  dock_data ( 7 ]  ; 
extern  float  barge_data [8] ; 
extern  float  tension; 
extern  float  extr_ten; 
extern  int  curve; 
extern  int  flag(3]; 
extern  int  type; 
extern  float  barge_res ( 6] ; 
extern  float  resist_dat [5] ; 
extern  float  ext_data [10] ; 
extern  float  spd_data 1 3 ] [ 4 ) ; 
extern  float  lgth_data (3]  (4 ]  ; 
extern  float  tug_eval[7]; 

static  char  *menu()  = 

{ 

"1)  Send  report  to  printer 
"2)  Send  report  to  file  only  ", 
”3)  Return  to  PROGRAM  OPTIONS" 

}  ; 


/*  tug  class  */ 
!*  hull  number  entered  by  user  */ 
/*  class  of  ship  Lire  Table  G-2  */ 
/*  array  to  store  tug  data  ' / 
/*  array  to  store  tow  data  */ 
/*  array  to  store  Table  G-2  data  */ 
/*  array  to  store  drydock  data  */ 


/*  array  to  store  barge  data  */ 

/*  mean  towline  tension  */ 

/*  extreme  towline  tension  */ 

/*  curve  number  from  extreme  */ 

/*  error  checking  flag  array  */ 

/*  tow  type  */ 

/*  computed  barge  parameters  */ 

/*  resistance  data  */ 

/*  extreme  tension  results  */ 

/*  tow  speed  effects  results  */ 


/*  hawser  length  effects  results  */ 
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y********************************************************************* 
This  function  generates  the  report,  and  sends  it  to  the  printer 
if  the  user  has  indicated  that  choice . 

♦  ♦<t**H***^*********#***JMH>H*<Ukt<(*H**j»*******^*ir**Jt*  +  ***it+»ilr^*«iMr  +  +*#<^^ 

void  report {) 

( 

char  inline [31), outline {31), text [40} ; 

char  “ ext 1(39],  text2 [391 ; 

char  mssgf93(81J; 

int  start, end, i, j, choice, prnt=0; 

f loat  tow_r es ,  haw_re3 ; 

float  xl,x2,:<3; 

FILE  *in, *out; 
int  startrow=2; 
int  3tartcoi=20; 
int  endrow=22; 
int  endcol=60; 

clear (startrowrl, startcol+1, endrow-1, endcol-1 , REV_VID) ; 
sprintf (text,  "TOW  REPORT") ; 

write_header (startrow, startcol, ended, text, REV_VID) ; 

start  =  (endcol-startcol-strlen (menn(O) ) ) /2  +  startcol; 
cnoice=popup (menu, "123" , 3, startrow+6, start-2, NONE, REV_VID, 0) ; 

if  (choice==»0)  /*  send  report  to  printer  */ 

prnt=l; 

else  if  (choice==l)  /*  send  report  to  file  onlv  */ 
prnt=0; 

else  if  (choice==2  II  choice<0)  /*  QUIT  or  escape  key  pressed  */ 

( 

cursor_off () ; 
get_options (4 ) ; 
return; 

} 

/*  open  input  and  output  files  */ 
in=fopen( "report. in", "r”) ; 
out=fopen("report.out",  "w")  ; 

/*  check  for  null  pointer  */ 
if  (lout) 

( 

sprintf (textl, "Can't  open  file  REPORT.OUT!"); 

sprintf (text2 , "=«=>  exit,  see  if  hard  disk  is  full  <=="); 

di3play_error (ERROR, textl,  text2) ; 

fclose (in) ; 

cursor_of f ( ) ; 

get_optior.s  (4 )  ; 

return; 

} 

/*  print  status  message  */ 
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sprintf (text,  " .  .  .  Writing  Report  .  . 
start  =  (endcol-startcol-strlen (text) ) /2  +  3tartcol 
write_string (startrow+8, start,  text,  REV_VID) ; 
sprintf (text, "Please  Wait") ; 

start  =  (endcol-startcol-strlen (text) ) /2  +  started 
write_string(startrow+10,  start,  text,  BLINK_REV_VID) ; 

!*  read  messages  */ 
for  (i=0;  i<9;  i++) 

( 

fgets (mssg (i] , 81, in) ; 
striper (mssg{i) ) ; 

} 

/*  print  report  header  */ 
for  (i=0;  i<3;  i++) 

{ 

fgets (inline, 81, in) ; 
fprintf (out, ”%s", inline) : 

) 

fprintf (out, "\n") ; 
fprintf (out, "\n") • 

/*********************************************/ 

/*  print  Section  I  */ 

J  *★*****★***********★*★**★★*★■*•»*******★★★*■»★**  J 

/*  print  header  */ 
for  (i=*0;  i<2;  i++) 

{ 

fget3 (inline, 81, in) ; 
fprintf (out, " %s", inline) ; 

) 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tug  class  */ 
fget3  (inline,  81,  in)  ,* 
striper (inline) ; 
pad (inline, 1) ; 
streat (inline, tug) ; 
fprintf (out, "%s\n", inline) ; 
fprintf (out, "\n") ; 

/*  print  hawser  data  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 3) ; 

sprintf (text, "%6. 2f  in",  tug_data ( 1) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  diameter  * 
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/*  scope  */ 


fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 6) ; 

sprintf (text, "%6.0f  ft" , tug_data (2] ) ; 
streat (inline, text) ; 
fprintf (out, "%s\n", inline) ; 
fprintf (out, "\n”) ; 

/*  print  chain  pendant  data  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline,  7) ; 

sprintf (text, "%6 . 2f  in" , tug_data [3]  ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  size  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 6) ; 

sprintf (text, "%6.0f  ft" , tug_data ( 4 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  scope  V 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*********************************************/ 

/*  print  Section  II  */ 

/******** ************** *****************»*****/ 
/****★**★/ 
if  (type==0)  /*  SHIP  */ 

{  /********/ 

/*  print  header  */ 
for  (i=0;  i<2;  i+t ) 

{ 

fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 

) 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 
fprintf (out, "\n") ; 

/*  print  input  data  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%a", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
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striper (inline) ; 

pad (inline, 1) ; 

street (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  number  */ 

fcr'-sts  (inline,  81,  in)  ; 
striper (inline) ; 
pad(inline, 11) ; 

sprintf (text, "%6.0£  tons",  cow_data(0] ) ; 
streat (inline, text) ; 

fprintf (out," %s\n”, inline);  /*  full  load  displacement  */ 

f get 3 (inline, 81 , in) ; 
striper (inline) ; 
pad (inline, 23) ; 

sprintf (text, "%6.1f  kts", tow_data [1 } ) ; 
streat (inline, text) ; 

fprintf  (out,  "%s\r.",  inline) ;  /*  tow  speed  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline,  5) ; 

sprintf  (text,  "%6.1f  kts",tow__data(2)>; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  max  wind  speed  */ 

fgets (inline,  81, in) ; 
striper (inline) ; 
pad  i  inline, 9) ; 

sprintf (text, "%6.1f  deg", tow_data (3 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  rel  wind  direction  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline,  14) ; 
if  (tow_data[4]=«“0.0) 

sprintf (text,  "Locked") ; 
else  if  (tow_data (4 ] «=1 .0) 
sprintf (text, "Trailing" ) ; 
else  if  (tow_data(4)”»2.0) 
sprintf (text,  "Removed")  ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  propeller  status  */ 

fprintf (out,  "\n") ; 

/*•  print  Table  G-2  data  */ 
fgets (inline, 81, in) ; 

fprincf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81 , in) ; 
striper (inline) ; 
pad (inline, 1) ; 
streat (inline, class) ; 
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fprintf  (out, "%s\n", inline) ; 


/*  3hip  class  */ 


fgets (inline, 81, in) ; 
striper  (inline) ; 
pad (inline, 10) ; 

sprintf (text, "%6 . Of  tons" , ship_data [0] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  displacement  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 20) ; 

sprintf (text, "%6 . Of  sq  ft", ship_data(l] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  frontal  area  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 16) ; 

sprintf (text,  "%6.2f", ship_data(2) ) ; 
streat (inline, text) ; 

fprintf  (out, "%s\n", inline) ;  /*  wind  coefficient  */ 

fgets (inline, 81, in) ; 
striper (inline)  ; 
pad (inline, 18) ; 

sprintf (text, "%6. Of  sq  ft" , ship_data (3) ) ; 
street (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  propeller  area  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 11) ; 

sprintf (text, "%6.0f", ship_data(4) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  resistance  curve  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 11) ; 

sprintf (text, "%6.0f", ahip_data(5] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wave  resistance  curve  */ 

fprintf  (out, "\n") ; 
fprintf (out, "\n") ; 


/*  read  and  discard  remaining  Section  IX  data  */ 
for  (i=0;  i<46;  i++) 
fgets (inline,  81, in) ; 


else  if  (type«»l)  /*  DRYDOCK  */ 

{  /»*♦*****»**/ 

/*  read  and  discard  Section  II  data  for  type  SHIP  */ 
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for  (i=0;  i<.18;  i++) 
fgets (inline, 81, in) ; 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 

{ 

fgets (inline, 81, in) ; 
fprintf (out, "%3”,  inline)  ; 

} 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgets (inline, 81 , in) ; 
fprintf (out, "%s", inline) ; 
fprintf (out, "\n") ; 

/*  print  input  data  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /* 

fgets (inline, 81 , in) ; 

striper (inline) ; 

pad (inline, 1) ; 

streat (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ;  /* 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 18) ; 

sprintf (text, "%6 . if ",  tow_data (4 ) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /* 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 23) ; 

sprintf (text, "%6.1f  kts",  tow_data (1) ) ; 
streat (inline, text) ? 

fprintf (out, "%s\n", inline) ;  /* 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad  (inline, 5) ; 

sprintf (text, "%6.1f  kts", tcw_data [2] ) ; 
streat (inline, text) ; 
fprintf (out, "%s\n", inline) ; 

fgets (inline, 81, in) ; 
striper (inline) ; 
paddnline,  9)  ; 

sprintf (text, "%6.1f  deg",  tow_data (3] ) 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  / 


header  */ 


hull  number  */ 


hull  condition  */ 


tow  speed  */ 


wind  speed  */ 


wind  direction  */ 


300 


fprintf (out, "\n") ; 


/*  print  estimated  displacement  */ 
fgets (inline,  81,  in)  ; 
striper (inline) ; 
pad (inline,  13) ; 

sprintf  (text, "%6 . Of  tons" , tow_data (03); 
streat (inline, text) ; 
fprintf (out, "%s\n", inline) ; 
fprintf (out, "\n") ; 

/ *  print  Table  G-4  data  */ 
fgets (inline, 81 , in) ; 

fprintf  (out,” %s", inline);  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 30) ; 

sprintf (text, "%6 . 2f ", dock_data ( i) ) ; 
streat (inline,  text) ; 

fprintf  (out,  ”%s\n'',  inline) ;  /*  f3  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 30) ; 

sprintf (text, "%6.2f",  dock_data(2] )  ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  £2  */ 

fgets (inline,  81, in) ; 
striper (inline) ; 
pad (inline, 30) ; 

sprintf (text, "%6 . 2f ",  dock_data [3] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n",  inline)  ;  /*  f3  */ 

fgets (inline,  81,  in)  ; 
striper (inline)  ; 
pad (inline, 13) ; 

sprintf (text, "%6. Of  sq  ft" , dock_data ( 4 ) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wetted  surface  area  */ 

/*  print  cross  sectional  areas  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%s”, inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper  inline) ; 
pad (inline, 15) ; 

sprintf (text, ”%6. Of  sq  ft ” , dock_data ( 5 ) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) •  /*  below  waterline  */ 
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fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 15) ; 

sprintf (text, "%6.0f", dock_data(6] ) ; 
streat (inline, text) ; 

fprintf  (out, "%3\n", inline) ;  /*  above  waterline  */ 

fprintf (out, "\n”) ; 
fprintf (out,  "\n")  ; 

/*  read  and  discard  remaining  Section  II  data  */ 
for  (i=0;  i<28;  i++) 
fgets (inline, 81, in) ; 


else  if  (type==2)  /*  BARGE  */ 

(  /•«********/ 

/*  read  and  discard  Section  II  data  for  type  SHIP,  DRYDOCK  */ 
for  (i=0;  i<36;  i++) 
fgets (inline, 81, in) ; 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 

{ 

fgets (inline, 81,  in)  ; 
fprintf (out, "%s",  inline)  ; 

) 

fprintf (out,  "\n") ; 
fprintf (out,  "\n")  ; 

/*  print  tow  type  */ 
fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 
fprintf (out, "\n") ; 

/*  print  input  data  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 1) ; 
streat (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  number  */ 

/*  print  hull  dimensions  */ 
fgets (inline,  81 , in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81,  in) ; 
striper (inline) ; 
pad (inline, 24 ) ; 

sprintf (text, "%6.1f  ft",barge_data(0] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  length  */ 
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fgets (inline, 81 , in) ; 
striper (inline) ; 
pad (inline, 26) ; 

sprintf (text, "%6.1f  ft” , barga_data ( i j ) ; 
strcat (inline, text) ; 

fprintf  (out,  "*s\n'',  inline) ;  /*  beam  */ 

fgets (inline, 81 ,  in)  ; 
striper (inline) ; 
pad (inline, 25) ; 

sprintf (text, ”%6.if  ft” , barge_data (2] ) ; 
strcat (inline, text) ; 

fDrintf (out, "%s\n". inline) ;  /*  depth  */ 


fgets (inline, 81 , in) ; 
striper (inline) ; 
pad (inline, 25) ; 

sprintf (text, "%6.1f  ft",barge_data(3] ) ; 
strcat (inline, text) ; 

fnrintf (out, "%s\n",  inline) ;  /*  draft  */ 


/*  print  deckhouse  dimensions  */ 
fgets (inline, 61, in) ; 
fprintf (out,  '%s", inline); 


/*  header  */ 


fgets (inline, 81, in) ; 
striper (inline' ; 
pad (inline, 24 ) ; 

sprintf (text, "%6.1f  ft",barge_data(4) ) ; 
strcat (inline,  text)  ; 

fprintf (out, "%s\n", inline) ;  /*  length  */ 

fgets (inline,  81,  in)  ; 
striper (inline)  ; 
pad (inline, 25) ; 

sprintf (text, "%6.1f  ft",barge_data [5] ) ; 

3trcat (inline,  text)  ; 

fprintf (out, "%s\n", inlino) ;  /*  width  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 24 ) ; 

sprintf (text, "%6.1f  f t" , barge_data [ 6) ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  height  */ 


fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 16) ; 
if  (barge_data (7] ==0 . 0) 

sprintf (text, "Rake  ended") ? 
else  if  (barge_data(7J==l .0) 
sprintf (text, "Ship  ended") ; 
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else  if  (barge_data (7 ]==2 .0) 
sprintf (text, "Square  ended"); 
streat (inline, text) ; 

fprintf  (out,  "rs'.n”,  inline)  ;  /*  end  shape  */ 

fgets (inline, 31, in) ; 
striper (inline) ; 
pad (inline, 18 ) ; 

sprintf (text, ”%6. If ", tow_data (4] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n”, inline) ;  /*  hull  condition  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 23) ; 

sprintf  (text,  ”%6 .  If  kts",  tcw_data  {1} )  ; 

3trcat (inline, text) ; 

fprintf (out, "is\n", inline)  ;  /*  tow  speed  */ 

fgets (inline, 81,  in) ; 
striper (inline)  ; 
pad (inline, 5) ; 

sprintf (text, "%6 . If  kts",  tow_data [2] ) ; 
scrcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wind  speed  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 9) ; 

3printf (text, "%6. If  deg", tow_data (3 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wind  direction  */ 

fprintf (out, "\n") ; 

/*  print  estimated  displacement  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 13) ; 

sprintf (text, "%6.0f  tons" , tow_data (0} ) ; 
streat (inline, text) ; 
fprintf (out, "%s\n",  inline)  ; 
fprintf (out, "\n")  ; 

/*  print  data  corresponding  to  Table  G-4  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 30) ; 

sprintf (text, "%6 . 2f " , barge_res ( 0 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  fl  */ 
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fgets (inline, 81, in) ; 
striper (inline) ; 
pad(inline,  30)  ; 

sprintf (text,  "%6 . 2f ”, barge_res { 1] ) ; 
streat (inline,  text) ; 

fprintf (out,  ”%s\n",  inline) ;  /*  f2  */ 

fgets (inline,  81, in) ; 
striper (inline)  ; 
pad (inline, 30) ; 

sprintf (text,  "%6.2f ",  barge_res [2] ) ; 
streat (inline,  text) ; 

fprintf (out, "%s\n", inline) ;  /*  f3  */ 

fgets (inline, 81, in) ; 
seriper (inline) ; 
pad (inline,  13)  ; 

sprintf (text, "%6. Of  sq  ft", barge_res (3) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wetted  surface  area  */ 

/*  print  cross  sectional  areas  */ 
fgets (inline,  81,  in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline,  15)  ; 

sprintf (text, "%6 . Of  sq  ft" , barge_res (4 3 ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  below  waterline  */ 

fgets (inline,  81, in) ; 

3tripcr (inline) ; 
pad (inline, 15) ; 

sprintf (text,  "%6. Of " , barge_res [ 5) ) ; 
streat (inline,  text) ; 

fprintf (out, "%s\n", inline) ;  /*  aljove  waterline  */ 

fprintf (out,  "\n") ; 
fprintf (out, "\n")  ; 

) 

fprintf (out, "\f")  ;  /*  form  feed  */ 

/***************************x*****************/ 

/*  print  Section  II*.  */ 

/*****************************•****************/ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 

( 

fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 

} 

fprintf (out, "\n") ; 
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fprintf (out, "\n") ; 

/*  print  tow  type  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 7) ; 
if  (type==0) 

sprintf (text, "SHIP") ; 
else  if  (type==l) 

sprintf (text,  "DRYDOCK")  ; 
else  if  (type==2) 

sprintf  (text,  "BARC-E")  ; 
streat (inline, text) : 

fprintf  (out, "%s\n", inline) ;  /*  tow  type  */ 

fprintf (out, "\n") ; 

/*  print  data  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 13) ; 

sprintf (text, "%8.0f  lbs" , resist_dat (0] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n”, inline) ;  /*  wind  resistance  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 7) ; 

sprintf (text, "%6.1f  ft",resist_dat(l] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wave  height  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 13) ; 

3printf (text, "%8.0f  lbs",  resist_dat (2] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  wave  resistance  */ 

fgets (inline,  81,  in) ; 
striper (inline) ; 
pad (inline,  13)  ; 

sprintf (text, "%8 .Of  lbs", resist_dat (3) ) ; 
streat (inline,  text) ; 

fprintf (out, "%s\n", inline) ;  /*  hull  resistance  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 8) ; 

sprintf (text, "%8.0f  lbs", resist_dat (4 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  propeller  resistance  */ 

fgets (inline, 81, in) ; 
fprintf (out, "%3", inline) ; 
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tow_res«*resist_dat  [0]  ; 
for  (i=2;  i<5;  i++) 

tow_res  +=  resist_dat fi) ; 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 8) ; 

sprintf (text, "%8 . Of  lbs", tow  res); 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  total  to'i  resistance  */ 

fprintf (out, "\n”) ; 

hawser_reaist (tug_data, tow_data (1) ,  tow_res,  &haw_res)  ; 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 16) ; 

sprintf (text, "%8.0f  lbs”, haw_res) ; 
streat (inline, text) ; 

fprintf (out, "%s\n" , inline) ;  /*  hawser  resistance  */ 

fprintf (out, "\n")  ; 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 13) ; 

sprintf (text, "%8 . Of  lbs”, tow_res+haw_res> ; 
streat (inline, text) ; 

sprintf (text, "  or  %6.2f  kips", (tow_res+haw_res) /1000 .0) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  mean  towline  tension  */ 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/***★★**★★*★***★**★★***★***★★**★**★***★*★**★★*/ 

/*  print  Section  IV  */ 

/********** ************************** *********/ 

/*  print  header  */ 
for  (i=0;  i<2;  i++) 

{ 

fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 

) 

fprintf (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tug,  tow  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 1) ; 
streat (inline, tug) ; 

fprintf (out, "%s\n", inline) ;  /*  tug  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
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/*  tow  " ! 


pad (inline, 1) ; 
strcat (inline, hull_no) ; 
fprintf (out, "%s\n", inline) ; 
fprintf (out, "\n") ; 

/*  print  data  */ 
fgets (inline, 31, in) ; 
striper (inline) ; 
pad (inline, 14) ; 

sprintf (text, ”«S.lf  kts", tug_eval (0) ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n”, inline) ;  /*  desired  tow  speed  */ 

fgets (inline, 31, in) ; 
striper (inline) ; 
pad (inline, 5) ; 

sprintf 'text, "%8.0f  lbs", tug_eval (1] ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  mean  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 

sprintf (text, "%8.0f  lbs", tug_eval (2] ) ; 
strcat (inline, text) ; 
fprintf (out, "%s\n",  inline)  ; 
fprintf (out,  "\n")  ; 

/*  print  message  */ 
if  (tug_eval (2] >=tug_eval (1) ) 
fprintf (out, "%s\n", mssg (1] ) ; 
else  if  (tug_eval (2] <tug_eval ( 1] ) 

{ 

fprintf (out, "%s\n" , mssg [0 ] ) ; 
fprintf (out, "%s\n",mssg(2] )  ; 

) 

fprintf (out, ”\n") ; 

/*  print  remaining  data  */ 
fgets  (inline,  81 ,  ir.)  ; 
striper  (inline) ; 
pad (inline, 8) ; 
sprintf (text, "%8. If  kts",  tug_eval (3] > ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  best  possible  tow  speed  */ 

fgets (inline, 81 , in) ; 
striper  (inline) ; 
pad (inline, 5) ; 

sprintf (text, "%8.0f  lbs", tug_eval (4 ) ) ; 
strcat  (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 


/*  available  tension  */ 

/*  tug  has  sufficient  pull  */ 

/*  tug  has  insufficient  pull  */ 
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sprintf  itext,  "%8 .  Of  lbs",  tug_eval  {5] )  ; 
strcat (inline, text) ; 

fprintf  (out,  " %s\n’!,  inli  ne) ;  /*  available  tension  */ 

fprir.tf  (cut,  "\n")  ; 

fgets (inline, 81, in) ; 
fprintf  (out,  "H",  inline) ; 

fgets (inline, 81, in) ; 
striper (inline) ; 
if  (tug_eval[6]=1.0) 

sprintf (text, "%5. If  kts  (ORIGINAL) ", tug_eval [0] > ; 
if  (tug_evai[6]==0.0) 

sprintf (text, ”%5. If  kts  (BEST  POSSIBLE) ", tug_eval [3] ) ; 
strcat (inline, text) ; 

fprintf (cut, "%s\n", inline) ;  /*  selected  tow  3peed  */ 

fprintf  (out, "\n") ; 

fprintf (out, "\f") ;  /*  form  feed  */ 

/*,»*********  +  ****!••■************************>.***/ 

/*  print  Section  V  */ 

/*************■************  ********************/ 

/*  print  header  */ 
for  l  i=0;  i<2;  i++) 

{ 

fgets (inline, 81, in) ; 
fprintf (out, "%s", inline) ; 

} 

fprintf  (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  tug,  tow  */ 
fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 1) ; 

3trcat (inline, tug) ; 

fprintf (out, "%s\n", inline) ;  /*  tug  */ 

fgets (inline, 81, in) ; 

striper  (inline) ; 

pad (inline, 1) ; 

strcat (inline, hull_no) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  */ 

fprintf (out, "\n") ; 

/*  print  tabulated  data  */ 
fgets (inline,  81,  in)  ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 1) ; 
i=»  (int)  ext_data  (0) ; 
strcat (inline, tabtow(i] ) ; 
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fprintf (out, "%s\n",  inline)  ; 


/*  tabulated  tow  */ 


fgets (inline, SI, in) ; 
striper (inline) ; 
pad (inline, 15) ; 

sprintf (text, "%6.0f  tons" , ext_data ( 1] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  tabulated  displacement  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 18 ) ; 

sprintf (text, "%6.0f  kts", ext_data (2) ) ; 
streat (inline, text ) ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  tow  speed  */ 

fget3 (inline, 81, in) ; 
striper (inline) ; 
pad (inline,  17) ; 

sprintf (text, "%6.0f  kts", ext_data (3) ) ; 
streat (inline,  text)  ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  wind  speed  */ 

fgets (inline, 81, in) ; 

3tripcr (inline) ; 
pad (inline, 13) ; 

sprintf (text, "%6.0f  deg", ext_data (4 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  wind  direction  */ 

fgets (inline,  81, in) ; 

3tripcr (inline) ; 
pad (inline,  15) ; 

sprintf (text, "%6.0f  ft",ext_data(5] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tabulated  hawser  scope  */ 

fgets (inline, 81, in) ; 
fprintf (out, "%s", inline)  ; 
fget3 (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 10) ; 

sprintf (text,  "%6 . Of " ,  ext_data ( 6 J ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  curve  number  */ 

fprintf (out, "\n") ; 

/*  print  results  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 15) ; 
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(ESTIMATED)",  ext  data [7]); 


if  (ext_data(9]==0) 

sprintf (text, "%6.2f  kips 
else  if  (ext_data  (9)*==1) 

sprintf (text, "%6.2f  kips  (ACTUAL) ", ext_data [7] ) ; 

3trcat (inline,  text)  ; 

fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad(inline, 12) ; 

sprintf  (text,  "%6 . 2f  kips" ,  ext_data  (8}  -ext__data  ( 7) )  ; 
streat (inline,  text)  ; 

fprintf (out, "%s\n", inline) ;  /*  dynamic  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 12) ; 

sprintf (text, "%6.2f  kips" ,ext_data(8) ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  extreme  tension  */ 

fprintf (out, "\n") ; 

/*  print  warnings,  if  applicable  */ 
if  (ext__data  (7)  >100.0) 

( 

fprintf (out, "%s", mssg (0) ) ; 
fprintf (out, "%s",  mssg(3) )  ; 
fprintf (out, "%s", mssg (5 ] ) ; 
fprintf (out,  "%s",  mssg (6) ) ; 
fprintf (out, "\n") ; 

) 

if  (ext_data(8) >400 .0) 

( 

fprintf (out, "%s",  mssg(O) ) ; 
fprintf (out, "%s", mssg (4 ) ) ; 
fprintf (out, "%s",  mssg (5) ) ; 
fprintf (out, "%s",  mssg (6) )  ; 
fprintf (out,  "\n" ) ; 

} 


/*  print  note  regarding  basis  for  speed, length  variations  */ 
for  (i-0;  i<2;  i++) 

( 

fgets (inline, 81,  in) ; 
fprintf (out, "%s",  inline)  ; 

) 

fprintf (out, "\n") ; 

/*  print  speed  variation  data  •'/ 
fgets (inline, 81 , in) ; 

fprintf (out, "%s", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
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pad (inline, 7) ; 

sprintf (text,  "%10 .If %10 . lf%10 . If ", spd_data (0] (0) ,  spd_data {1] [0] , 
spd_data(2] [0]) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 10) ; 

sprintf (text,  "%10 .0f%10 .0f%10 .Of " , spd_data (0) [1] , spd_data (1 ) [ 1) , 
spd_data(2] (1] ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  curve  number  */ 

fprintf (out, "\n") ; 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 3) ; 

sprintf (text,  "%10 . If %10 . lf%10 . If" , spd_data[0)  (2) , spd_data (1 ) (2] , 
spd_data(2] (2] ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 

xl=spd_data (0] {3] -spd_data(0] (5]; 
x2=spd_data [1] (3] -spd_data(l] (2); 
x3=spd_data(2]  (3] -spd_data  (.2)  (2); 
sprintf (text, "%10 . If %10 . If %10 . If " , xl,  x2,  x3) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  dynamic  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 

sprintf (text,  "%10 . lf%10 . If %10 . If " , spd_data (0)  (3) ,  spd_data[l) [3) , 
spd_data [2] ( 3 ) ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  extreme  tension  */ 

fprintf  (out, "\n") ; 
fprintf (out, "\n") ; 

/*  print  length  variation  data  */ 
fgets (inline, 81, in) ; 

fprintf (out, "%a", inline) ;  /*  header  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 5) ; 

sprintf (text,  "%10 . 0 f %  10 . Of %10 . Of " , lgth_data (0) (0) , lgth_data(l) (0) , 
lgth_data (2 ) (0) ) ; 
strcat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  tow  speed  */ 

fprintf (out, "\n") ; 
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fgets (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 10) ; 

sprintf (text, "%10 . Of %10 . Of %10 . Of " , lgth_data (0) [ 1) , lgth_data ( 1 ) ( 1) , 
lgth_data ( 2 ) ( 1 ] ) ; 
streat (inline, text) ; 

fprintf (out, ”%s\n", inline) ;  /*  curve  number  */ 

fprintf (out, "\n") ; 

fget3 (inline, 81, in) ; 
striper (inline) ; 
pad (inline, 3) ; 

sprintf (text, "%10.lf%10.lf%10.lf", lgth_data (0 ) [ 2 ) , lgth_data ( 1 ] ( 2 ) , 
1 gth_data ( 2 ) [ 2 ] ) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  mean  tension  */ 

fgets (inline, 81, in) ; 
striper (inline) ; 

xl=lgt.h__data (0]  (3] -lgth__data  (0]  (2); 
x2=lgth_data ( 1) (3 ] -lgth_data ( 1] (2); 
x3**lgth_data  (2] (3 ) -lgth_data (2) (2); 
sprintf (text, "%10 . lf%10 . If %10 . If " , xl,  x2, x3) ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline);  /*  dynamic  tension  */ 

fgets (inline, 81 ,  in) ; 
striper (inline) ; 

sprintf (text, "%10 . If %10 . lf%10 . If " ,  lgth_data (0) ( 3)  ,  lgth_data ( 1 ) (3) , 
lgth_data ( 2 ] ( 3 ] )  ; 
streat (inline, text) ; 

fprintf (out, "%s\n", inline) ;  /*  extreme  tension  */ 

fprintf (out, "Vf") ;  /*  £©«n  feed  */ 

f close (in) ; 
f close (out) ; 


/*  send  report  file  to  printer  */ 
if  (prr.t) 

( 

/*  prompt  user  to  cheek  printer  before  proceeding  */ 
sprintf (textl, "Ensure  printer  is  on  line"); 
sprintf (toxt2, "and  ready  to  go"); 
display  error (WARN, textl, text2) ; 
cursor_of f () ; 

/*  print  status  message  */ 

sprintf (text, " .  .  .  Printing  Report  .  .  ."); 

start  *  (endcol-startcol-strlen (text) ) /2  +  startcol, 
write  string ( startrow+8 , start , text , REV_VID) ; 
sprintf (text, "Please  Wait"); 

start  -  (endcol-startcol-strlen (text) ) /2  +  startcol; 
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write_string (startrow+10,  start,  text,  BLINK_REV__VID) 

/*  print  report  */ 
print_rep () ; 

} 

clear (startrow+1, startcol+1, endrow-1, endcol-1) ; 
return; 


print_rep () 

{ 

FILE  *in; 
char  str (81) ; 

in=fopen ( "report . out" ,  "r")  ; 

while  (  !feo£(in)  ) 

{ 

if  (fgets (str, 81, in) ) 
prints (str) ; 

) 


prints (s) 
char  *s; 

{ 

while  (*s)  bdos (0x5, *s++, 0) ; 

) 
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/**************************************************  ************  ********** 
File:  plt.c 
Author:  J.  H.  Milgram 
Edited:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  plotting  functions  written  for  the  ATHENA  lab 
computer,  using  Halo  88  functions.  Modified  to  work  with  T0WCA1C. 
*******************************************************************★*****/ 
♦include  "stdio.h" 

♦include  "pithead. h" 

♦include  "string. h" 

setplt () 

{ 

FILE  *fp; 

int  status, nbr, n; 

char  chi,  ch2,  gdevice ( 13 ], inline [81] ; 
fp  =  fopen ( "device . dat" ,  "r" )  ; 

n=fscanf (fp, "%s\n", gdevice) ;  /*  read  device  driver  from  file  */ 

n=fscanf (fp, "%d\n", Smode) ;  /*  read  graphics  mode  from  file  */ 

f close (fp) ; 
setdev(  gdevice  ); 
scxx  «=  8.28; 
scyy  =  5.52; 
cnul  =  ' \0' ; 
knumx  =  0; 
knumy  =  0; 
xO  =  0.13; 
yOp  ■  0.10; 
xl  =  0.80; 
yl  =  0.87; 

} 

locate (xOi,  yOi, xli, vli) 
float  *x0i, *y0i, *xli, *yli; 

{ 

xO  =  *x0i  /  scxx; 
yOp  ■=  *y0i  /  scyy; 
xl  =  *xli  /  scxx; 
yl  ■  *yli  /  scyy; 

) 

line3 (npts, x, y) 
short  *npts; 
float  x { ] ,  y ( )  ; 

( 

short  npt; 

float  xml,yml; 

xml  =  x  ( 0 ) ; 

yml  =  y(0); 

movabs (  4xml,  Syml) ; 


npt  =  *npts  -  1; 
polylnabs (  x,  y,  Snpt  ) ; 

) 

xyaxis (xmn, xmx, xtc,  ymn,  ymx, ytc, xf ,  yf , kod) 
float  *xmn, *xmx, *xtc,  *ymn, *ymx, *ytc, *xf . *yf ; 
short  *kod; 

{ 

float  xdei,  ydel,  xsmall,  ysm.  11,  xbig,  ybig,  xmnp,  ymnp,  xmxp,  ymxp,  zero 
short  ione,  izr,  kode,  i,  mn,  mm,  ml,  m2; 

short  format  =  1,  height  =  1,  page  =  1,  screen  =  1,  width  =  1; 

ione  =  1; 
izr  =  0; 

xdel  =  *xmx  -  *xmn; 

ydel  =  *ymx  -  *ymn; 

xsmall  =  *xmn  -  (xO  /  xl)  *  xdel; 

xbig  =  *xmx  +  ((1.0  -  xO  -  xl)  /  xl)  *  xdel; 

y small  =  *ymn  -  (yOp  /  yl>  *  ydel; 

ybig  =  *ymx  +  ((1.0  -  yOp  -  yl)  /  yl>  *  ydel; 

xrange  =  xdei  /  xl; 

yrange  =  ydel  /  yl; 

initgraphics (  Smode  ) ; 

3etieee (  &format  ) ; 
display (  Spage  ) ; 
setscreen (  Sscreen  ) ; 

setworld(  fixsmall,  Sysmall,  Sxbig,  Sybig  ); 

inqdrange (  &npx,  &npy  ) ; 

nfax  =  npx  /  scxx; 

nfay  =  npy  /  scyy; 

xmnp  =  *xmn; 

xmxp  =  *xmx; 

ymnp  =  *ymn; 

ymxp  =  *ymx; 

mapwtod(  Sxmnp,  Symnp,  &ix0,  &iy0); 
mapwtod(  Sxmxp,  Symxp,  &ixl,  &iyl); 
ptabs (  &xmnp,  Symnp  ) ; 
inqclr(  Sxmnp,  Symnp,  Sicf  ); 
inqbknd (  Sicb  ); 
setcolor(  Sicb  ); 
ptabs (  Sxmnp,  Symnp  ) ; 
sotcolor(  Sicf  ); 

inittcur(  Sheight,  Swidth,  Sicb  ); 
tclx  °  0.011  *  (*xmx  -  *xmn) ; 

tcly  =  0.015  *  (*ymx  -  *ymn) ; 

kode  "  *kod; 
xtic  =  *xtc; 
ytic  =  *ytc; 
if  (kode  >=  10) 
goto  easel; 

movabs (  Sxmnp,  Symxp  ); 
lnabs (  Sxmnp,  Symnp  ); 
lnabs (  Sxmxp,  Symnp  ); 
if  (kode  =“  1) 
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goto  easel; 

Inabs  (  Sxmxp,  &ymxp  )  ; 

Inabs  (  &xm np,  Symxp  )  ; 

easel:  nxx  =  (1.0001  *  (*:cnx  -  *xf ) )  /  xtic  4-  1; 
nyy  =  (1.0001  *  (*vncc  -  *yf ) )  /  ycic  -  1; 
if  (kode  >=  10) 
kode  =  kode  -  10; 
xmin  =  ’  xmn  ; 
xmax  =>  *xmx; 
yroin  =  *ymn; 
ymax  =  ’ymx; 
xff  =  *xf ; 
yff  =  *yf ; 


for  (  i  =  1 

;  i  <= 

nxx; 

ir+  ) 

xtx ( i J  = 

( *xf  4- 

(i  - 

1)  *  xtic) ; 

for  (  i  =  1 

;  i  <= 

nyy; 

i4-4-) 

yty [i]  = 

(*vf  + 

(i  - 

1)  *  ytic) ; 

if  (  kode  ==  3  ) 
goto  case2; 

for  (  i  =  1;  i  <=  nxx;  i-r+  ) 

{ 

xtl[i]  =  *ymn  -  tcly; 

if  ((kode  ==  2)  II  (kode  =*  4))  goto  cased; 
xtu ( i )  =  *ymn  4-  tcly; 
goto  case02; 

cased:  xtu[i]  =  '■ymn; 

case02:  ; 

} 

for  (  i  =  1;  i  <=  nyy;  i++  ) 

{ 

ytl(i)  =  *xmn  -  tclx; 
if  ((kode  ==  2)  II  (kode  =°  4)) 
ytu[i]  =  *xmn; 
else 

ytu(i)  =  *xmn  +  tclx; 

} 

goto  case3; 

case2:  for  (  i  =  1;  i  <=  nxx;  i++  ) 

{ 

xtl(i)  -  *ymn; 
xtu(i)  =  *ymx; 

} 

for  (  i  =  1;  i  O  nyy;  i++  ) 

{ 

ytl  (i]  =■  '  cmn; 
ytu(i)  *  *xmx; 

) 

case3 : 

if  (*yf  >=  ymax)  goto  caseS; 
mm  =  nyy  /  2  +  1; 
for  (  i  **  1;  i  <=  mm;  i++) 

{ 

ml  «=  nyy  -  2  *  (i  -1)  ; 
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if  (ml  <  1)  goto  case4; 

drawn (  Sytlfml],  &yty(ni],  Sytu(ml],  Sytyiml}  >; 
m2  =  ml  -  1; 

if  {  m2  <  1)  goto  case-4  ; 

drawu (  Sytu(s2],  5yty(m2],  Sytl!m2],  4yty(m2)  J; 
case4  :  ; 

\ 

caseS :  if  ( *xf  >  xmax)  goto  case?; 

mn  =  nxx  2  ▼  1; 

fer  {  i  =  1;  i  <=  mn;  i-f-r  ) 

( 

ml  =  1  ~  2  *  fi  -  1)  ; 
if  (ml  >  nxx)  goto  caseS; 

dravu(  Sxtx(ml],  &xtl[mi),  Sxtx[mlj,  &xt>j'ml3  ); 
m2  =  ml  1; 

if (  m2  >  nxx)  goto  case6; 

dravu (  Sxtx(m2],  Sxtu(m2),  Sxtx(m2},  Sxr.iim2]); 
caseS:  ; 

> 

case?:  if  ( (koae  =1)  it  (kcde  ==  3))  goto  case!2; 
for  (  i  =  1;  i  <=  nyy;  i-+) 

i 

y31(i]  =  *xmx  -  tc.x; 
y3u(i]  =  *xmx; 

) 

for  (  i  =  1;  i  <=  nxx;  i++  ) 

( 

x31[i]  =  *ymx  -  tciy; 
x3u(i]  =  *ymx; 

} 

if  (*yf  >=  ymax)  goto  case9; 
for  (  i  =  1;  i  <=  mm;  i++) 

{ 

ml  =  1  +  2  *  (i  -  1); 
if  (ml  >  nyy)  goto  case8; 

drawu (  &y31[ml],  Syty(ml],  Sy3u(ml3,  Syty(ml)  ); 

m2  =  ml  +  1; 

if  (m2  >  nyy)  goto  caseS; 

drawu (  &y3u(m2],  6yty[m23,  Sy31(m2},  &yty(m2)  ); 
case8 :  ; 

) 

case9:  if  (*xf  >*  xmax)  goto  casell; 

for  (  i  *  1;  i  O  mn;  i++  ) 

{ 

ml  =  nxx  -  2  *  (i-1) ; 
if  (ml  <  1)  goto  caselO; 

drawu (  &xtx(ml],  6x31(ml],  &xtx(ml],  &x3u(ml)  ); 
m2  =  ml  -  1; 

if  (m2  <  1)  goto  caselO; 

drawu t  4xtx{m2),  &x3u(m2],  &xtx(m2),  &x31(m2)  ); 
caselO:  ; 

) 

casell:  if  (kode  !=»  4)  got  casel2; 
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zero  =  0.0; 

drawn (  Szero,  Symnp,  Szere,  Symxp) ; 
drawn  (  Sara p,  &zero:  Sxraxp,  Szero)  ; 
casel2: 

} 

drawn  (xl,  vl ,  x2,  y2) 
float:  *:■:!,  *yl,  *x2,  *y2; 

{ 

float  xxl , yyl , xx2 , yy2 ; 

x:-:l  =  ’xl; 

yyl  =  *yl; 

xx2  =  *x2; 

yy2  =  *v2; 

movabs (&xxl, syyi) ; 

lnabs (&xx2, &yy2) ; 

} 

label (itype, 3tring) 
int  ’itype; 
char  string [81] 

{ 

char  cdl, straux [81] , cnull=NULL,  ’result; 
int  h  =  1,  w  =  1,  hor  =  0,  ver  =  1,  str  =  0; 
int  n,nm  ; 

float  ywl, xlaby,  xxn,  yyn,  xnl, ynl, xx,  yy; 

cdl  =  ; 

strset (straux, cnull) ; 

if  (  ’itype  !=  1  &&  ’itype  !=  2  )  goto  casend; 

n  =  strlen (string) ; 
nm  =  n-1; 

if  (3tring[nm]  ==  cdl) 

{ 

strncpy (straux,  string, nm) ; 
straux [nm]  =  cnull; 
n  =  nm  ; 

) 

if  (string[nm]  !=  cdl) 

{ 

strncpy (straux, string,  n) ; 
straux [n]  =  cnull  ; 

) 

if  (’itype  “  1) 

{ 

xxn  =  xO  +  0.5  *  (  xl  -  0.01  *  (n  +  2)  >; 
yyn  =  1.0  -  yOp  +  0.1; 
settext  (&h,  &w,  &hor,  S.str)  ; 

} 

else  goto  case3  ; 
goto  case 4  ; 

case3 :  xlaby  =  xmin  -  0.070  *  xrange  ; 

ywl  =  0.0  ; 

mapwton(  Sxlaby,  Siywl,  &xnl,&ynl  )  ; 
xxn  =  xnl  -  2.  *  0.018  ; 
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yyn  =  1.0  -  yOp  +  0.5  *  (  0.023  *  n  -  yl  ); 

settext(&h,  «w,  sver,  &str) ; 

case4:  mapntow (Sxxn,  6yyn,  &xx,  &yy) ; 

movtcurabs (Sxx,  &yy) ; 

btext  (3traux)  ; 

casend:  ; 

} 

labely (x, y,  string) 
float  *x,  *y  ; 
char  string (81]  ; 

{ 

char  cdl, straux ( 81] ,  cnull=NULL,  *result; 

int  h  =  1,  w  =  1,  hor  =  0.  ver  =  1,  str  =  0; 

int  n,nm  ; 

float  xl,yl; 

cdl  =  ; 

strset (straux, cnull) ; 
n  =  strlen (string) ; 
nm  =  n-1; 

if  (string(nm)  ==  cdl) 

{ 

strncpy (straux, string, nm) ; 
straux (nm]  =  cnull; 

} 

if  (string(nm)  !=  cdl) 

{ 

strncpy (straux, string, n) ; 
straux (n]  =  cnull  ; 

} 

settext (&h, &w, &hor, &str) ; 
xl  =  *x; 
yl  =  *y; 

movtcurabs (&xl, &yl) ; 
btext (  straux  ) ; 


endplt ( ) 

{ 

closegraphics () ; 

} 

symplt (npts, x, y, nsym) 
int  *npts,*nsym; 
float  x ( ] ,  y ( ] ; 

{ 

float  dx, dy, xx, yy, xxl,xxm, xxr, yyb, yym, yyt, dd, yyy, ddx 

int  sty  =  1  ,  i, nsymb, ncode, npnt; 

sethatchstylo (&sty) ; 

ncode  =  *nsym  /  10; 

nsymb  =  *nsym  -  10  *  ncode; 

dx  =  0.006  *  xrange; 

dy  =  0.00P  *  yrange; 

npnt  »  *npts  -  1; 
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for  (  i  =  0  ;  i  <=  npnt  ;  ++i  ) 

{ 

xx  =  x ( i ] ; 

yy  =  y(i); 

xxl  =  xx  -  dx; 
xxm  =  xx; 
xxr  =  xx+  dx; 

yyb  =  yy  -  dy; 
yym  =  yy; 

yyt  =  yy  +  dy; 

if  (n3ymb  !=  0)  goto  easel; 
movabs (&xxl, &yym) ; 
lnabs  (Sxxr, &yym) ; 
movabs (&xxm, &yyt) ; 
lnabs (&xxm, &yyb) ; 

easel:  if  (nsymb  !=  1)  goto  case2; 

movabs (&xxl, &yyb) ; 

lnabs (&xxr,  &yyt) ; 

movabs (&xxl, &yyt) ; 

lnabs  (&xxr,&yyb); 

case2 :  if  (nsymb  !=  2)  goto  case3; 

movabs  (&xxl,  &yyb)  ; 

lnabs  (&xxr, &yyb) ; 

lnabs  (ixxr,&yyt); 

lnabs  (&xxi,&yyt); 

lnabs  (&xxl,4yyb); 

if  (ncode  ==  0)  goto  case3; 

movabs (&xx,  &yy)  ; 

f lood (&icf ) ; 

case3s  if  (nsymb  !=  3)  goto  case4; 

movabs (&xxl, &yym) ; 

lnabs  (&xxm,&yyb); 

lnabs  (&xxr,&yym); 

lnab3  (&xxm, &yyt); 

lnabs  (&xxl,&yym); 

if  (ncode  ■=»  0)  goto  case4  ; 

movabs (Sxx, &yy) ; 

flood (&icf ) ; 

case4  :  if  (nsymb  !”  4)  goto  case5; 

movabs (&xxm, Syyt) ; 

lnabs (Sxxl, Syyb) ; 

lnabs (&xxr, &yyb) ; 

lnabs  (fixxra,  &yyt)  ; 

if  (ncode  *>«>  0)  goto  case5; 

movabs (&xx,  &yy) ; 

flood (&icf ) ; 

case5 :  if  (nsymb  !=  5)  goto  case6; 

movabs (Sxxr,  Syyt)  ; 

lnabs (&xxl, 4yyb) ; 

lnabs  (fixxr,&yyb); 

lnabs  (fixxl,Syyt); 

lnabs  (Sxxr,&yyt); 

if  (ncode  «  0)  goto  case6; 

dd  =  0.005  *  yrange; 
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yyy  =  yy  +  dd; 
movabs  (&xx, &yyy) ; 
flood (& icf ) ; 

yyy  =  yy  -  dd; 

movabs (ixx,  &yyy) ; 
flood (Sicf )  ; 

case6:  if  (nsymb  !=  6)  goto  case7; 

movabs iSxx,  &yy)  ; 
ddx  =2.0  *  dx; 
cir (&ddx) ; 

if  (ncode  ==  0)  goto  case7; 
movabs (sxx,  &yy) ; 
flood (&icf )  ; 

case7 :  ptabs (&xx,  &yy)  ; 

} 

} 

eraseu (xl, yl, x2, y2) 
float  *xl,  *yl,  *x2,  *y2; 

{ 

float  xo,yo,xt,yt; 
xo  =  *xl; 
yo  =  *yl; 
xt  =  *x2; 
yt  =  *y2; 

3etcolor(  &icb  ); 
movabs (  &xo,  Syo  )  ; 
lnabs (  &xt,  &yt  )  ; 
setcolor(  &icf  ); 


axnum (ntx, nty) 
short  *ntx  ,  *nty  ; 

{ 

static  char  *cmft(]  = 

("  ",  "%5 . Of",  "%5  .If",  "%5 . 2f ",  "%5.3f", 

"%5 .  4f  ",  "%5d",  "%  3d" 

}; 


static  char  *clft(]  = 

{"  ",  "%6 . Of " ,  "%6 . If" ,  " %  6 . 2  f " ,  "%6.3f", 

"%6. 4f ",  "%5d",  "% 


}  ; 
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short  i,  jx,  jy,  ival,  ior.e  =  1,  izero  =  0  ; 
float  yy,xx  ,  val  ; 
char  cvl[12]  ,  cvs(12]  ; 


ntix  =  "ntx  ; 
ntiy  =  *nty  ; 
jx  =  7 
jy  =  7 

settext (fiione, &ione, Sizero, Sizero)  ; 
if  (  knumx  ==  1  )  goto  easel; 
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jx  =  1  ; 

if  (  (xmax  >  9999.5)  ||  (xmin  <  -999.95)  )  jx 

if  (  (xmax  <  999.95)  &&  (xmin  >  -99.95)  )  jx  =  2 

if  (  (xmax  <  99.995)  &&  (xmin  >  -9.995)  )  jx  =  3 

;.f(  (xmax  <  9.9995)  &&  (xmin  >  -0.9995)  )  jx  =  4 
if(  (xmax  <  0.99995)  &&  (xmin  >=  0.000)  )  jx  =  5 

easel:  if  (  knumy  ==  1  )  goto  case2; 

jy  =  i  ; 

if  (  fymax  >  9999.5)  ||  (ymir.  <  -999.95)  )  jy  = 

if  (  (ymax  <  999.95)  &&  (ymin  >  -99.95)  )  jy  =  2 

if  (  (ymax  <  99.995)  &&  (ymin  >  -9.995)  )  jy  =  3 

if  (  (ymax  <  9.9995)  &&  (ymin  >  -0.9995)  )  jy  =  4 
if  (  (ymax  <  0.99995)  6&  (ymin  >=  0.00)  )  jy  = 
case2:  ; 

for  (i  =  1  ;  i  <=  nxx  ;  i  =  i  +  ntix) 

{ 

yy  =  ymin  -  0.045  *  y range  ; 
xx  =  xtx(i)  -  0.045  *  xrange  ; 
val  =  xff  +  (i-1.)  *  xtic  ; 
ival  =  val  ; 

if  (jx  >=■  6)  sprintf  (cvl,  clft ( jx) , ival)  ; 

if  (jx  <  6)  sprintf  (cvl, clft ( jx) , val)  ; 
movtcurabs (&xx, &yy)  ; 
btext(cvl)  ; 

) 

for  (i  *  1  ;  i  <=  nyy  ;  i  =  i  +  ntiy  ) 

{ 

xx=  xmin  -  0.070  *  xrange  ; 
yy=  yty[i)  -  0.013  *  yrange  ; 
val=yff  +  (i-1)  *  ytic  ; 
ival  =  val  ; 

if  (jy  >=  6)  sprintf (evs, cmft ( jy) ,  ival)  ; 
if  (jy  <  6)  sprintf (evs, cmft ( jy] , val)  ; 
movtcurabs (&xx, &yy)  ; 
btext(cvs)  ; 

) 


waitke ( ) 

{ 

/*  WAITING. . .*/ 

/*  LOOP  UNTIL  kbhit ()  REPORTS  A  KEYSTROKE...*/ 
while  (  ! kbhit ()  )  ; 
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/★***************************★******************************************* 
File:  tlib.c 
Author:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  combines  the  files  iolibl.c,  popup. c,  and  video. c 


iolibl .  c 

Author:  Norbert  H.  Doerry 
Edited:  Todd  J.  Peltzer 
Last  update:  30  April  1989 

This  file  contains  a  set  of  routines  to  augment  the  10  functions 
in  the  standard  10  libraries . 

Note:  this  version  of  iolib  combines  NHD's  original  iolib  and  ioliba 
files  along  with  modifications  and  additions  by  T JP . 

Functions : 

stofa()  :  "string  to  floating  array" 

stodaO  :  "string  to  double  array" 

stoia()  :  "string  to  short  integer  array" 

parse ()  :  parse  a  string  into  its  elements 

suctolc ( )  :  "string  upper  case  to  lower  case" 

slctoucO  :  "string  lower  case  to  upper  case" 

strsplit()  :  "string  split" 

strstripO  :  "string  strip" 

striper ()  :  "strip  carriage  return" 

bioskeyO  :  emulates  part  of  the  Turbo  C  bioskeyO  function 

get_key()  :  reads  the  16-bit  scan  code  of  a  key 

get_special ()  :  returns  the  position  code  of  arrow  and  function  keys 

is_in()  :  tests  if  a  character  is  in  a  given  string 

a************************************************************************ 
♦include  "stdio.h" 

♦include  "dos.h" 

♦include  "stdlib.h" 

♦include  "keydef.h" 

♦include  "video. h" 

int  vmode; 

char  far  *vid_mem; 

/a*********************************************************************** 
stofa  :  "string  to  floating  array" 

Norbert  H.  Doerry 
rev  a  10  July  1988 

rev  b  29  October  1988  (TJP) :  added  fourth  argument;  deleted  flags, 
rev  c  30  October  1988  (TJP) :  added  exponential  notation. 

This  function  converts  a  string  to  an  array  of  floating  point  numbers 
and  passes  back  the  array  and  the  number  of  numbers  successfully  con¬ 
verted.  The  function  returns  zero  if  read  successfully  to  the  end  of 


324 


the  line,  otherwise  it  returns  the  character  at  which  failure  occurred. 
The  fourth  argument  passed  to  the  function  is  the  maximum  number  of 
elements  in  the  array. 


Note:  stofa  does  not  convert  with  100%  accuracy;  roundoff  error  causes 
some  loss  of  significance  beyond  5  or  6  decimal  places.  Use  the 
function  "stodaO"  if  more  significant  digits  are  required, 
a********************************************************************-****/ 

stofa (string, f ltaptr, nbrptr , maxnum) 
char  stringU; 
float  fltaptr  {]/* 
int  * nbrptr, maxnum; 

( 

int  sign; 

int  index  =  0; 

int  expsign,  exponent; 

float  power; 

char  ch; 

float  inch; 

*nbrptr  =  0; 

while  ( (ch=string(index++) )  ==  '  '  | (  ch  ==  '\t')  ; 

/*  strip  off  leading  blanks  and  tabs  */ 

while  ( ( (ch  >=  '  0 '  &&  ch  <=  ' 9 ' )  | |  ch  ==  '  . '  | |  ch  ==  ' +'  |  |  ch  ==  ' 

II  ch  '  ||  ch  ==  '  ; '  | |  ch  ==':')  &&  *nbrptr  <  maxnum) 

( 

sign  =  1; 
power  =  10; 

if  (  ch  II  ch  ==  '  +'  ) 

( 

if  (  ch  ==»'-'  ) 
sign  =  -1; 
else 

sign  *=  1; 

ch  "  string ( index++] ; 

) 

f ltaptr  ( *nbrptr)  =»  0;  /*  Initialize  value  */ 

while  (ch  >=  '0'  &&  ch  <=  '9') 

( 

f  ltaptr  {*  nbrptr  ]  =•  10.0  *  (fltaptr  [  *nbrptr) )  +  ch  -  'O'; 
ch  -  string (index++) ; 

) 

if  (ch  =='.')  /*  Check  for  decimal  point  */ 

while  ((ch  »  string ( index++] )  >=  '0'  &&  ch  <«  '9') 

( 

fltaptr  ( *nbrptr]  =»  fltaptr  ( *nbrptr)  +  (ch  -  '0')  /  power; 
power  *=  10; 

} 

/*  Check  for  exponential  notation  */ 
if  (ch  ==  '  E'  II  ch  ==  'e') 

( 

expsign  =  1; 

if  (  (ch  -  string(index++)  )  —  ' -'  II  ch  =*=  '+') 
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{ 

if  (  ch  ==  ) 

expsign  =  -1; 
ch  =  string ( index++ ] ; 

} 

exponent  =  0; 

while  (ch  >=  'O'  &&  ch  <=  '9') 

{ 

exponent  =  10.0  *  (exponent)  +  ch  -  'O'; 
ch  =  string [ index++] ; 

) 

power  =  (expsign  ==  -1)  ?  0.1  :  10; 
while  (exponent--  >=1) 

{ 

f ltaptr ( *nbrptr]  *=  power; 

) 

} 

else  if  (ch  ==  '-')  /*  Check  for  "ft-in"  entry  */ 

{ 

if  ( (ch  =  string [index++] )  >=  '0'  &&  ch  <='9') 

{ 

inch  “  ch  -  '  0'  ; 

if  (inch  ==  1  I  I  inch  ==  0) 

if  (  (ch  «  string  [index++] )  ==  'O'  |  |  ch  =■=  '  V  ) 

inch  =  10*inch  +  ch  -  'O'; 
else 

index — ; 
power  =  10; 

if  ( (ch  =  string (index++) )  =='.')  /*  ft-decimal  inch  */ 

( 

while  ( (ch  =  string ( index++J )  >=  '0'  &&  ch  <=  '9') 

( 

inch  =  inch  +  (ch  -  '0')  /  power; 
power  *=  10; 

> 

} 

else  if  (ch  ==  ' -' )  /*  f t-inch-eighth  */ 

( 

if  ( (ch  ”  string ( index++ J )  >=  '0'  &&  ch  <*  '7') 

( 

inch  +»  (ch  -  '0')/(8.0); 

if  ( (ch  -  string ( index++J )  =*  '•') 

while  ( (ch  °  string ( index++) )  >“  '0'  &&  ch  <=  '9') 

( 

inch  +=  (ch  -  ' 0' ) / (8 .C*power) ; 
power  *=  10; 

) 

) 

) 

f ltaptr ( *nbrptr]  +-  inch  /  12.0; 

) 

} 

f ltaptr (*nbrptr)  *=  sign; 

( *nbrptr) ++; 
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if  (ch  ==  ' ||  ch  ==  ' +'  I  I  ch  ==  '  8'  | |  ch  ==  ' 9'  I  I  ch  ==  '  . ' ) 

break; 

while  (ch  ==  '  '  | |  ch  ==  '  \t'  ) 

ch  =  string (index++) ; 
if  (ch  =*=':'  ||  ch  '  II  ch  ==  '  ,  '  ) 

/*  recognize  these  characters  as  delimiters  */ 
while  ( (ch  =  string (index++) )  ==  '  '  | |  ch  ==  '  \t' )  ; 

while  (ch  ==  ' : '  | |  ch  '  I  I  ch  '  ) 

{ 

if  (*nbrpcr  <  maxnum) 

{ 

fltaptr (*nbrptr)  =  0; 

( *nbrptr) ++; 

} 

while  ( (ch  =  string (index++) )  ==  '  '  | |  ch  ==  '  \t' )  ; 

) 

} 

return  (ch) ; 


/********************-tr****************************x********************y* 

stoda  :  "string  to  double  array" 

Todd  J.  Peltzer 

after  stofa  by  Norbert  H.  Doerry 
29  October  1988 

This  function  converts  a  string  to  an  array  of  double  precision  numbers 
and  passes  back  the  array  (via  "dblaptr")  and  the  number  of  numbers 
successfully  converted  (via  "nbrptr") .  The  function  returns  zero  if  it 
read  successfully  to  the  end  of  the  line,  otherwise  it  returns  the 
character  at  which  failure  occurred.  The  fourth  argument  passed  to  the 
function  ("maxnum")  is  the  maximum  number  of  elements  in  the  array. 

The  function  accepts  numbers  in  either  decimal  or  exponential  form  (but 
not  f t-inch-eighth) . 

a************************************************************************ 

stoda (string, dblaptr, nbrptr , maxnum) 
char  string!); 
double  dblaptr!); 
int  *nbrptr,  maxnum; 

( 

int  sign; 

int  expsign,  exponent; 
int  index  «  0; 
double  power; 
char  ch; 

* nbrptr  -  0; 

while  (  (ch**string [ index++]  )  '  '  I  |  ch  =>=  ' \t' )  ; 

/*  .  .  .  strip  off  leading  blanks  and  tabs  */ 

while  (  (  (ch  >-  '  0'  &&  ch  <“  '  9'  )  |  |  ch  =*“  '  . '  |  |  ch  »  ' +'  II  ch  ==  ’  - 
II  ch  '  |  |  ch  **“  '  ; '  ||  ch  *■  '  :'  )  SS  *nbrptr  <  maxnum  ) 

/*  .  .  .  test  for  allowable  characters  */ 

( 

sign  =  1; 
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10; 


power  = 
if  (  ch  —  | |  ch  ==  '  +'  ) 

{ 

if  (  ch  ==  ) 

sign  =  -1  ; 

ch  =  string { index++] ; 

( 

dblaptr ( *nbrptr)  =0;  /*  Initialize  value  */ 

while  (ch  >=  '0'  &S  ch  <=  '9') 

{ 

dblaptr (*nbrptr)  =  10.0  *  (dblaptr { *nbrptr] )  +  ch  -  'O'; 
ch  =  string { index++ ] ; 

} 

if  (ch  =='.')  /*  Check  for  decimal  point  */ 

while  ( (ch  =  string (index++] )  >=  'O'  &&  ch  <=  '9') 

{ 

dblaptr ( *nbrptr]  =  dblaptr ( *nbrptr)  +  (ch  -  '0')  /  power 
power  *=  10; 

} 

/*  Check  for  exponential  notation  */ 
if  (ch  ==  ' E'  ||  ch  ==  '  e'  ) 

{ 

expsign  =  1; 

if  (  (ch  =  string ( index++] )  ==  '  ||  ch  *«•  '+') 

{ 

if  (  ch  == 

expsign  =  -1; 
ch  =  string (index++) ; 

} 

exponent  =  0; 

while  (ch  >=  'O'  &&  ch  <=  '9') 

( 

exponent  =  10.0  *  (exponent)  +  ch  -  'O'; 
ch  =  3tring(index++) ; 

> 

power  =  (expsign  “  -1)  ?  0.1  :  10; 
while  (exponent--  >=1) 

{ 

dblaptr [*nbrptr]  *=  power; 

} 


dblaptr  (*nbrptrj  *•»  sign; 

( *nbrptr) ++; 

if  (ch  mm  '  -'  ||  ch  "  '  +'  |  I  ch  =*=«'.'  ) 

break; 

while  (ch  mm  >  '  \ |  ch  »  '  \t'  ) 

ch  =  string (index++) ; 
if  (ch  ==  ' : '  ||  ch  ==  ' ; '  | |  ch  ==  '  , '  ) 

/*  recognize  these  characters  as  delimiters  */ 
while  ( (ch  =  string ( index++) )  ==  '  '  | |  ch  ==  '\t')  ; 

while  (ch  '  |  |  ch  ==•  '  ; '  I  |  ch  ==  '  ,  '  ) 

{ 

if  (*nbrptr  <  maxnum) 


323 


{ 

dhlaptr  (  * nbrptr  ]  =*  0; 

( *nbrptr ) ++; 

} 

while  ( (ch  =  string (index++] )  ==  '  '  | |  ch  ==  '\t')  ; 

} 

) 

return  (ch) ; 


/a************************************************************************ 
stoia  :  "string  to  short  integer  array" 

Todd  J.  Peltzer 
16  April  1989 

This  function  takes  a  character  string  and  converts  it  to 
an  array  of  short  integers. 

**************************************************************************/ 

stoia (string, array, nbrptr, maxnum) 

char  string ( ) ; 

short  array (); 

int  *nbrptr; 

int  maxnum; 

{ 

char  ch; 
int  index=0 ; 

*nbrptr=0; 


/*  strip  leading  blanks  and  tabs  */ 

while  (  (ch=string(index++) )=='  '  I  I  ch  ==  ' \t' )  ; 


while  (  (ch  >=  '0'  &&  ch  <=  '9') 

{ 

array (* nbrptr]  =  0; 
while  (ch  >=  'O'  &&  ch  <«■  '9') 
( 


&&  *nbrptr<maxnum) 


array ( *nbrptr]  =>  10*  (array  ( *nbrptrj )  +  ch  -  'O'; 
ch  =»  string  (index++)  ; 


} 

(♦nbrptr) ++; 

while  (ch“'  '  i  I  ch  »»  '\t') 
ch  «  string f index++] ; 


return  ch; 


) 


/************************************************************************ 
Norbert  Doerry 
11  July  1988 

This  converts  all  the  upper  case  characters  in  a  string  to  lower  case 

A********************************************************************'****/ 

suctolc (instring, outstring) 
char  instring (], outstring (] ; 

( 
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int  i; 


for  (i  =  0;  in3tring(i]  !=  NOLL  ;  i+-r) 

{ 

if  (instring(i)  >=  'A'  &&  instring(i)  <=  '  Z' ) 
outstring [i]  =  in3tring(i]  -  'A'  +  'a'; 
el3e 

outstring (ij  =  instring [i]; 
x 

t 

outstring{i]  =  NULL; 

} 

/*****************************************************************XX-*»*-X 

NHD 

This  converts  all  the  lower  case  characters  in  a  string  to  upper  case 

****rt*rt********rt*******'**********************************'*****X***X*X***Xy 

slctouc (instring, outstring) 
char  instring (], outstring (] ; 

{ 

int  i; 

for  (i  =  0;  instring(i]  !=  NOLL  ;  i++) 

{ 

if  (in3tring(i]  >=  'a'  &&  instring(i]  <=  'z') 
outstring (i]  =  instring (i)  -  'a'  +  'A'; 
else 

outstring [i]  =  instring (i]; 

} 

outstring (i]  “  NULL; 

} 


/********rtrtrt************************************************xx*rt*******-** 

This  function  strips  a  string  of  leading  and  trailing  spaces  and  tabs. 
*************************************************************************/ 
strstrip (s) 
char  *s; 

{ 

int  i, j; 

/*  find  first  none  space  or  tab  */ 

for  (i  =*  0  ;  s(i]  ==t  '  '  ||  s(i]  ==  '  \t'  ;  i ++)  ; 

/*  copy  string  */ 

for  (j  =  0  ;  s ( i]  !=  NULL  ;  s(j++]  =  s[i++)); 

s(j]  =•  NULL; 

/*  delete  trailing  spaces  and  tabs  and  Cr*/ 
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for  (j  =  scrien(s)  -  1  ;  s i j }  ==  '  '  !i  s[j]  =  ' 
s[  j)  ==  '  \n'  ;  sjj —  1  =  NULL) ; 


This  function  pads  the  end  of  a  strin.c  with  a  specified 
number  of  scares. 


string  to  pad  with  spaces  * 
/*  nur.be r  of  spaces  to  pad  »/ 


while  (  stri-mi]! 
for  (j=0;  j<n;  j- 
str ii-j)='  ' ; 
str  fi+n]=NULL; 


This  function  strips  the  carriage  return  from  a  string. 
************************************************************************* 

striper (s) 
char  *3; 

{ 

int  j; 

/*  delete  trailing  spaces,  tabs,  and  carriage  returns  */ 

for  (j  =  strlen(s)  -  1  ;  s[j]  ==  '  '  II  s[j]  ==  '  \t'  II 
3(j]  ==  '  \n'  ;  s [ j  —  ]  =  NULL); 

> 

/******************************************************************»***»* 
This  function  emulates  part  of  the  Turbo  C  bioskeyO  function. 

*****************************  I'.*****-********************-******************/ 

bioskey (c) 
int  c; 

{ 

switch (c)  ( 

case  0:  return  get_key(); 
easel:  return  kbhit(); 

} 

} 

/************************************************************************ 
This  function  reads  the  16-bit  scan  code  of  a  key. 
*************************************************************************/ 
get_key ( ) 

{ 

union  REGS  r; 
r.h.ah  =  0; 


— NULr) ; 
■+) 


pad (str, n) 
char  'str; 
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return  irst.$6  iCxlS,  sr,  ir )  ; 


returns 


scsitisn 


arrow  and 


get_3peci2i { * 


unrcn  m.cev 


-WTO1 * 
- .  r 


vhi le  ( ! bicskey ( 1 ) ) ; 
c .  i  =  bicskey (C); 


*  wtit 

read 


itysirsi*  *. 
key  * 


This  function  teats  if  a  character  is  in  a  given  string;  returns  the 
position  of  the  character  in  the  string  if  found,  otherwise  returns  C. 


is_in  <s, c) 
char  *s,  c; 

< 

register  int  i; 

for  (i=C;  's;  if-)  if  (*s-r  ==  c)  return  i-i; 
return  0; 


This  function  beeps  the  speaker  using  the  specified  frequency . 
**********************************■»********************■**  +  *******  +  *■****  +  * 

void  beeplO 

{ 

int  freq=20Q; 
unsigned  i; 
union  { 

long  divisor; 
unsigned  char  c(2]; 

)  count; 

unsigned  char  p; 

count. divisor  =  1193280  /  freq;  /*  compute  the  proper  count  */ 
outp(67,  182);  /*  tell  8253  that  a  count  is  coming  */ 

outp(66,  count.c(O));  /*  send  low-order  byte  */ 
outp(66,  count. c(lj);  /*  send  high-order  byte  */ 
p  =  inp(97);  /*  get  existing  bit  pattern  */ 
outp(97,  p  |  3);  /*  turn  on  bits  0  and  1  */ 

for(i*=0;  i<32000;  ++i)  ;  /*  delay  loop  */ 

outp(97,  p) ;  /*  restore  original  bits  to  turn  off  speaker  */ 
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} 


•  fcr*#************-***************-********-************************^******* 

This  function  beeps  the  speaker  using  the  specified  frequency. 
*«*■'****■'*-****•**■****••«***  *****»-**»****«»«*****«***************«***.  ***•.**/ 

void  beep2 () 

{ 

int  frec=400; 
unsigned  i; 
union  ! 

long  divisor; 
unsigned  char  c(2]; 

}  count ; 

•unsigned  char  p; 

count . divisor  =  1293280  /  freq;  /*  compute  the  proper  count  */ 
outp(67,  182);  /*  tell  8253  that  a  count  is  coming  */ 

outp(66,  count.c(C]);  /*  send  low-order  byte  */ 
outp(S6,  count.c(l));  /»  send  high-order  byte  »/ 
p  =  inp(97);  /*  get  existing  bit  pattern  */ 
outp(97,  p  |  3);  /*  turn  on  bit3  0  and  1  */ 

for  (i=0;  i<32000;  +-ri) ;  /*  delay  loop  */ 

outp(97,  p) ;  /*  restore  original  bits  to  turn  off  speaker  V 

) 

/************************************************************************* 
video . c 

This  file  contains  a  number  of  functions  for  controlling  screen 
display  directly  using  video  RAM. 

Last  update:  13  April  1989 


Functions : 

3et_video ( ) 
video_mode ( ) 
3ave_screen ( ) 
restore_screen () 
goto_xy ( ) 
cls() 
clear ( ) 

write_string ( ) 
write_char () 
cursor_off () 
cursor_on() 
display_error ( ) 
pause () 

screen_getstrg ( ) 
draw_window ( ) 
vid_box() 

********************* 


:  set  video  memory  location 

:  return  the  current  video  mode 

:  save  a  portion  of  the  screen 

:  restore  the  same  portion  of  the  screen 
:  send  the  cursor  to  row, col 

:  clear  the  screen 

:  clear  a  portion  of  the  screen 
:  display  a  string  »  ith  specif. -,ed  attirbute 
:  write  character  with  specified  attribute 
:  turn  blinking  cursor  off 

:  turn  blinking  cursor  on 

:  display  message  in  popup  window 
:  pauses  until  the  user  presses  the  INSERT  key 

:  takes  keystrokes  and  displays  them  on  the  screen 

:  draws  a  window  on  the  screen 

:  create  normal  video  "boxes" 

a****************************************************/ 


/*********★******************************************************  ********** 
This  function  sets  the  video  memory  location. 
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******-******************rt**v**-*****************+x*********yr*'*********-*******/ 

void  set_videc() 

{ 

int  vmode; 

vmode  =  videc_mode  ( )  ; 

if(  (vmode! =2)  SS  (vmode! =3)  £&  (vmode! =7)  ',  { 
prir.tf  ("video  must  be  in  80  column  text  mode"); 
exit (1)  ; 

} 

/*  set  proper  address  of  video  RAM  */ 
if (vmode«=“7)  vid_mem  =  (char  far  *)  0x30000000; 
else  vid  mem  =  (char  far  *)  0xB800000Q; 


This  function  returns  the  current  video  mode. 

*******x*******x***********************rt******rt'*****************************/ 

videojnode ( ) 

{ 

union  REGS  r; 

r.h.ah  =  13;  /*  get  video  mode  */ 

return  int86(0xl0,  Sr,  Sr)  S  255; 


/*****************************X**************Ar***************A*****X******** 

This  function  saves  a  portion  of  the  screen  to  memory, 
a***************************************************************************/ 

void  ssve_screen(rowl,  coll,  row2,  col2,  pt_buffer) 
int  rowl,  coll,  row2,  col2; 
char  *pt_bu£fer; 

; 

int  i,  j; 

char  far  *pt_video; 

for  (i=rowl;  i<=row2;  ++i)  ( 

pt_video  =  vid_mem  +  160* i  +  2*coil; 
for  (j”coll;  j<=col2;  ++j)  { 

*pt_buffer++  *  *pt_video++; 

*pt_buffer++  “  *pt_video++; 

} 

I 

} 

/********************-***************X*********/C****************',r************ 

This  function  restores  a  portion  c-f  the  screen  from  memory. 

A****************-***********************************************************/ 

void  restore_screen (rowl,  coll,  row2,  col2,  pt_buffer) 
int  rowl,  coll,  row2,  col2; 
char  *pt_buffer; 

{ 

int  i,  j; 

char  far  *pt_video; 


/*  Save  char.  */ 

/*  Save  attribute.  */ 
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for  (i=rowl;  i<»row2;  ++i)  { 

pt_video  =  vid_mem  +  160*i  +  2*coll; 
for  (j*>coil;  j<=»col2;  ++j)  { 

*pt_video++  =  *pt_buf fer++; 

*pt_video++  =  *pt_buf fer++; 

} 

) 

} 

/★★a************************************************************************ 
This  function  clears  the  entire  screen 

a***************************************************************************/ 
void  cls() 

{ 


union  REGS  r; 

r.h.ah=6; 

/* 

screen  scroll  code  */ 

r  .h.al=0; 

/* 

clear  screen  code  */ 

r .  h . ch=0 ; 

/* 

start  row  */ 

r .h . cl=0; 

/* 

start  column  */ 

r.h.dh=24; 

/* 

end  row  */ 

r.h.dl-79; 

/* 

end  column  */ 

r.h.bh=7; 

/* 

blank  line  is  blank  */ 

int86(0xl0,  &r,  &r) ; 

} 

/a**************************************** r**********************i»*x********* 

This  function  clears  a  portion  of  the  screen,  using  either  normal  or 
reverse  video. 

*******x*****************<**************************************************/ 

void  clear (rowl, coll, row2, col2, attrib) 
unsigned  rowl, row2, coll, col2; 
int  attrib; 

( 

char  far  *pt_video; 
unsigned  row, col; 

for  (row=rowl;  row<=row2;  ++row) 

{ 

pt_video  «  vid_mem  +  160*row  +  2*coll; 
for  (col-coll;  col<=col2;  ++col) 

{ 

*pt_video++  =  '  '  ; 

*pt_video++  »  attrib; 

} 

} 

} 

/ft************************************** W *********************************** 

This  function  sends  the  cursor  to  a  specified  location  on  the  screen, 
a***************************************************************************/ 

void  goto_xy(row,  col) 
int  row,  col; 
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{ 


union  REGS  r; 


r -h.ah=2; 

/*  cursor  addressing 

function 

r .h . dl=col; 

/*  column  coordinate 

*/ 

r .h.dh=row; 

/*  row  coordinate  */ 

r .h.bh=0; 

/*  video  page  */ 

int86 (0x10, 

ir,  &r) ; 

/A****************. *********************>,**************************•*■**  +  -*■***** 

This  function  writes  a  string  at  a  specified  .location  on  the  screen, 
using  a  specified  attribute. 

****************************************w***********************************/ 

void  write_string (row,  col,  string,  attrib) 
int  row,  col; 
char  *string; 
int  attrib; 

{ 

register  int  i; 
char  far  *v; 

v  =  vid_mem; 

v  +=  (row*160)  +  col  *  2; 
for  (i=col;  *string;  i++)  ( 

*v++  =  *string++; 

*v++  =  attrib; 

} 

} 

/a************************************************************************** 
This  function  writes  a  string  at  a  specified  location  on  the  screen, 
using  a  specified  attribute. 

****************************************************************************/ 
void  write_char (row,  col,  ch,  attrib) 
int  row,  col; 
char  ch; 
int  attrib; 

( 

register  int  i; 
char  far  *v; 

v  =*  vid_mem; 

v  +*  (row* 160)  +  col  *  2; 

* v++  *  ch; 

*v  =  attrib; 

} 

/****************************************************«********************** 
This  function  turns  off  the  blinking  screen  cursor. 

a***************************************************************************/ 

void  cursor_off() 

! 

union  REGS  r; 


/* 

compute  the  address 

*/ 

/* 

write 

the 

character 

*/ 

/* 

write 

the 

attribute 

*/ 

/* 

compute  the  address 

*/ 

/* 

write 

the 

character 

*/ 

/* 

write 

the 

attribute 

*/ 
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r.h.ah=l;  /*  cursor  size  code  */ 

r.h.ch=0x2C;  /*  set  bit  5  on;  turn  off  cursor  */ 

int86(0xl0,  &r,  &r) ; 

} 

/*************************************************************************** 
This  function  turns  on  the  blinking  screen  cursor. 

fc*******************************************??*******************************/ 

void  cursor_on ( ) 

( 

union  REGS  r; 

r.h.ah=l;  /*  cursor  size  code  */ 

r.h.ch=6;  /*  set  start  scan  line  */ 

r.h.cl=7;  /*  set  end  scan  line  */ 

int86(0xl0,  &r,  &r)  ; 

} 

/****************************y  ******************************************** 
Function:  display_error ( ) 

Author:  Todd  J.  Peltzer 
Last  update:  24  April  1989 

This  function  creates  a  popup  window  and  displays  up  to  two  lines  of 
text,  with  either  "ERROR"  or  "WARNING"  as  header,  or  with  a  blank  header. 
Maximum  length  of  text  per  line  is  38  characters. 

I**************************************************************************/ 

static  char  footer!]  = 

{"  Press  any  key  to  continue 

void  draw_window() ; 

void  display_error (type, textl, text2) 
int  type; 

char  *textl,  *text2; 

( 


char 

♦buffer; 

/* 

video  buffer 

*/ 

int 

rowl-10; 

/* 

start  row 

*/ 

int 

row2~16; 

/* 

end  row 

V 

int 

coll-19; 

/* 

start  col 

*/ 

int 

col2-61; 

/* 

end  col 

*/ 

char 

header(8); 

/* 

header  text 

*/ 

int  start; 

union  inkey  { 
char  ch (2) ; 
int  i; 

}  c; 

cursor  off ( ) ; 
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if  (type*=ERROR) 

( 

sprintf (header, "ERROR") ; 
beepl () ; 

} 

else  if  (type==WARN) 

{ 

sprintf (header,  "WARNING")  ; 
beep2 () ; 

} 

else  ;  /*  type==BLANK  */ 

/*  allocate  enough  memory  for  video  buffer  */ 

buffer  =  (char  *)  malloc  (2  *  (row2-rowl+l)  *  (col2-coll+l)  ) 

/*  3ave  portion  of  video  screen  */ 

3ave_screen (rowl,  coll, row2, col2, buffer) ; 

/*  create  window  background  and  border  */ 
draw_window (rowl,  coll,  row2,  col2, DOUBLE, REV_VID) ; 

if  (type==ERROR  | |  type==WARN) 

( 

/*  write  header  */ 

start=coll+ (col2-coll-strlen (header) ) /2 ; 
write_string (11 , start,  header,  BLINK_REV_VID) ; 

) 

/*  write  footer  */ 

start=coll+ (col2-coll-strlen (footer) ) / 2; 
write_string (row2,  start, footer, REV_VID) ; 

/*  write  first  line  of  error  message  */ 
start=coll+ (col2-coll-strlen(textl) ) / 2; 
write_string(13,  start,  textl,  REV_VID) ; 

/*  write  second  line  of  error  message  */ 
start=coll+ (col2-coll-strlen (text2) ) / 2 ; 
write_string (14 , start,  text2,  REV_VID) ; 

/*  wait  for  keystroke,  then  restore  screen  and  exit  */ 
while  (1) 

( 

c.i  »  bioskey(O);  /*  read  the  key  */ 

if  (c.ch(Oj)  /*  key  is  a  normal  key  */ 

( 

break; 

) 

else  /*  key  is  a  special  key  */ 

{ 

break; 

} 
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restore_screen (rowl, cell,  row2, col2,  buffer) ; 
free (buffer) ; 
cursor_on ( ) ; 

} 

/*************************************************************************** 
This  function  halts  program  execution  until  the  user  presses  the 
INSERT  key. 

****************************************************************************/ 

void  pause  (startrow,  started,  endrow,  ended,  msg,  attrib) 

int  startrow; 

int  started; 

int  endrow; 

int  ended; 

char  *msg; 

int  attrib; 

{ 

int  start,  key,  i; 

/*  write  quit  message  */ 

start= (endcol-startcol-strlen (msg) ) /2  +  started; 
write_string (endrow, start, msg, attrib) ; 

/*  get  user's  response  */ 
whilu  (1) 

{ 

key=get_special ()  ; 

if  (key== INSERT) 

{ 

/*  erase  message  */ 

for  (i=0;  i<strlen (msg) ;  i++) 

{ 

write_char (endrow, start+i,  205 , attrib) ; 

} 

break; 

} 

else  if  (key*=»ALT_Q)  /*  exits  program;  returns  to  DOS  */ 

( 

eursor_on () ; 
cl s  0  ; 
exit (0)  ; 

) 

else 

{ 

continue; 

} 

} 

) 

/a******************************************************************, ***** 

This  function  takes  input  keystrokes  and  displays  them  on  the  screen. 

Uses  full  16  bit  scan  code. 
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**********************★***************************************************/ 
typeaef  3truct 
{ 

int  startcol; 
int  endcol; 

}  data_box; 

void  screen^getstrg (i, row, col, string, attrib, input) 


int  i ; 

/* 

data  index 

*/ 

int  row,  col; 

/* 

starting  row,  col 

*/ 

char  *string; 

/* 

ptr  to  string 

*/ 

int  attrib; 

/* 

norm/ rev  video 

*/ 

data_box  *input; 

/* 

data  structure 

*/ 

union  inkey  { 
char  ch ( 2 ] ; 
int  i; 

}  c; 

int  j=0;  /*  array  index  */ 

int  k; 

while  (1) 

{ 

c.i  =  bioskey(O);  /*  read  the  key  */ 

if  (c.ch(0]) 

{ 

switch  (c.ch[0]) 

{ 

case  ESC  :  /*  the  ESCAPE  key  is  pressed  */ 

j=0;  /*  reset  array  index  *  {. 

string ( j ] -NULL;  /*  NULL  string  */ 

for  (k=input  [i]  .started;  k<input(i]  .endcol;  k++) 
write_char (row,  k,  '  ' ,  attrib) ; 
col=*input  ( i )  .startcol; 
break; 

case  '\r'  :  /*  the  ENTER  key  is  pressed  */ 

string! j] -NULL;  /*  NULL  terminate  string  */ 

return; 

case  BKSP  :  /*  back  space  */ 

if  (col  ”  input (i) .startcol)  break;  /*  prevent  backspacing  past  start  */ 

else 

( 

col — ; 

j  — ; 

write_char (row, col,  '  ', attrib) ; 
c . ch [0]  -  '  '  ; 
stringt j)=c.ch[0] ; 
break : 

) 

case  '  '  : 

if  (i>0)  brtak;  /*  spaces  not  allowed  in  numeric  input  */ 
else  if  (col  —  input (i) . endcol-1 ) 


{ 

break;  /*  no  typing  beyond  end  of  box  */ 

} 

else 

{ 

write_char (row, col, c . ch (0 ] , at t rib) ; 

string ( j ] =c .ch (0] ; 

col++; 

j++; 

break; 

} 

default  : 

if  (col  ==  input ( i ] .endcol-1) 

( 

break;  /*  no  typing  beyond  end  of  box  */ 

} 

else 

{ 

write_char (row,  col,  c.ch (0] , attrib) ; 

string ( j ] =c . ch ( 0 ] ; 

col++; 

j++; 

} 

} 

goto_xy (row,  col) ; 

) 

else 

( 

switch (c.ch(l) ) 

{ 

case  ALT_Q  : 
cursor_on ( ) ; 
els  ()  ; 
exit (0) ; 
default  : 
break; 

) 

) 

} 

) 

/**********************************-**********>•****************************** 
This  function  draws  a  window  on  the  screen  with  a  specified  video 
attribute  (reverse  or  normal) ,  and  a  specified  border  (single  or  double) . 
a*******************************************************.*  *******************/ 

void  draw_window (startrow, startcol,  endrow,  ended,  border,  attrib) 
int  startrow; 
int  startcol; 
int  endrow; 
int  endcol; 
int  border; 
int  attrib; 

( 

int  row, col; 


/*  starting  row,  screen  coordinates  */ 

/*  starting  col,  screen  coordinates  */ 

/*  ending  row,  screen  coordinates  */ 

/*  ending  col,  screen  coordinates  */ 

/*  if  1,  single  border;  if  2,  double  border  */ 
/*  normal  or  reverse  video  */ 
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int  upr_lft, upr_rt,  lwr_lft,  lwr_rt , top, bot, side; 

if  (border»*SINGLE) 

{ 

upr_lft=218 ; 
upr_rt=191; 
lwr_lft=192; 
lwr_rt=217; 
top=bot=196; 
side=179; 

) 

if  (border==DOUBLE) 

{ 

upr_lft=201; 
upr_rt=187; 
lwr_lft=200; 
lwr_rt=188; 
top=bot=205; 
side=186; 

> 

/*  create  background  */ 
for  (row=startrow;  row<=endrow;  row++) 
for  (col-startcol;  col<=endcol;  col++) 
write_char (row,  col,  '  ' , attrib) ; 

/*  if  no  border,  exit  */ 
if  (border==NONE) 

{ 

return; 

} 

/*  draw  border  */ 

write_char (startrow, started, upr_lft, attrib) ;  /*  draw  corners  */ 

write_char (startrow, ended,  upr_rt, attrib) ; 
write_char (endrow, started,  lwr_lft,  attrib) ; 
write_char (endrow, endcol,  lwr_rt,  attrib) ; 

for  (cd=startcol+l;  col<endcd;  cd++) 
write_char (startrow, col, top,  attrib) ; 
for  (col'startcol+1;  coKendcol;  col++) 
v>rite_char (endrow, col, bot, attrib) ; 
for (row-startrow+1;  row<endrow;  row++) 
write_char  (row,  started,  side,  attrib) ; 
for (row=startrow+l;  row<endrow;  row++) 
write_char (row, endcol, side, attrib) ; 

) 

/**********************«**************************************************** 
This  function  draws  text  header  on  the  screen  with  a  specified  video 
attribute  (reverse  or  normal),  and  a  single  border. 
a***************************************************************************/ 

void  write_header (startrow, startcol, ended, header, attrib) 
int  startrow; 


/*  draw  top  border  */ 

/*  draw  bottom  border  */ 
/*  draw  left  border  */ 

/*  draw  right  border  */ 
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int  started; 
int  ended; 
char  ‘header; 
int  attrib; 

{ 

int  start; 

start  =  (endcol-startcol-strlen  (header) ) /2  +  started; 
draw_window (startrow+1, start-1,  startrow+3 , start+strlen (header) , 

SINGLE, attrib) ; 

write_string(startrow+2,  start, header,  attrib) ; 

) 

/ft************************************************************************** 

This  function  is  used  to  create  normal  video  "boxes"  on  an  otherwise 
reverse  video  background  to  highlight:  data  entry  locations. 
***********-*****************************************************************/ 
void  vid_box(startrow,  started,  length) 
int  startrow; 
int  startcol; 
int  length; 

( 

int  i  ; 


/*  create  normal  video  boxes  for  data  entry  */ 
for  (i=0;  iclength;  i++) 

write  char  (startrow,  started+i,  '  '  ,NORM_VID); 


popup . c 

Author:  Todd  J.  Peltzer 
Last  update:  29  March  1989 


Functions : 
popup  ( ) 

display_menu ( ) 
get_resp ( ) 

A***************************************************************************/ 

void  display_menu () ,  draw_window() ; 

/*************************************************************************** 
This  function  displays  a  pop-up  menu  and  returns  the  user's  selection: 

—  returns  -2  if  menu  cannot  be  constructed 

—  returns  -1  if  user  hits  escape  key 

—  otherwise  the  item  number  is  returned  starting 

with  0  as  the  firsc  (top  most)  entry 

a***************************************************************************/ 

int  popup (menu, keys, count, startrow,  started, border,  attrib, start) 

char  ‘menu ( ] ;  /*  menu  text  */ 

char  ‘keys;  /*  hot  keys  */ 

int  count;  /*  number  of  menu  items  */ 
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int  startrow; 
int  startcol; 
int  border; 
int  attrib; 
int  start; 

{ 


/*  starting  row,  screen  coordinates  */ 

/*  starting  col,  screen  coordinates  */ 

/*  if  0,  no  border;  if  1,  single  border;  if  2, 
/*  normal  or  reverse  video  */ 

/*  starting  item  to  highlight  */ 


register  int  i,  len; 

int  endrow;  /*  ending  row,  screen  coordinates  */ 

int  ended;  /*  ending  col,  screen  coordinates  */ 

int  choice,  vmode; 

unsigned  char  *p;  /*  buffer  for  screen  data  */ 


double  border  */ 


if(  (startrow>24)  ||  (3tartrow<0)  ||  (startcol>79)  j|  (startcol<0)  ) 

{ 

printf ( "range  error"); 
return  -2; 

} 


/*  compute  dimensions  */ 
len  =■  0; 

for(i=0;  i<count;  i++) 

if (strlen (menu { i] )  >  len)  len  =  strlen (menu (i) ) ; 
ended  =  len  +  A  +  startcol; 
endrow  =  count  +  1  +  startrow; 
if  ( (endrow+l>24)  ||  (endcol+l>79) ) 

{ 

printf ("menu  won't  fit"); 
return  -2; 

} 


/*  allocate  enough  memory  for  menu  screen  buffer*/ 

p  =  (unsigned  char  *)  malloc (2* (endrow-startrow+l ) * (endcol-startcol+l ) ) ; 
if(!p)  exit(l);  /*  install  error  handler  here  */ 

/*  save  the  current  screen  data  */ 
save_screen (startrow, startcol, endrow, endcol, p) ; 

/*  draw  border  and  background  */ 

draw_window (startrow, started, endrow, endcol, border, attrib) ; 

/*  display  the  menu  */ 

display_menu (menu, startrow+l, star tool +2 , count , attrib) ; 

/*  get  the  user's  response  / 

choice  =  get  resp (startrow+l, startcol tl , count, menu, keys, attrib, start) ; 

/*  restore  the  original  screen*/ 

restore_screen (startrow, startcol, endrow, endcol, p) ; 
free (p) ; 
return  choice; 

) 

/A************************************************************************** 
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This  function  displays  the  menu  in  it3  proper  location 

/XXXXXXXAAXXXXXXXXXXXXXAXAXXXXXXXXXAXAXXXXXXXXXXXXAXXXXXXXXXXXXXXAXxxAXXXXXx/ 

void  display_menu (menu,  row,  col,  count,  attrib) 

char  'menu ( ] ; 

int  row; 

irit  col; 

int  count; 

int  attrib; 

{ 

register  int  ’  ; 

for(i=0;  i<count;  i++,  row++)  { 

write_string(row, col,  menu(i),  attrib); 

) 


/AAXAAAXAAAAXAAXXXXXXXXXXAAXAXXAXAxAXXXXXXXXAXXAAXXXXAXXXXXXXXXXXXXAXXXXXXXX 

This  function  gets  the  user's  selection. 

/XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXxXXXXXXXXXXXXXXXXXxXXX/ 

get_resp (row,  col, count, menu, keys, attrib, start) 

int  row,  col,  count; 

char  'menu ( ] ; 

char  *keys; 

int  attrib; 

int  start; 

{ 

union  inkey  ( 

char  ch(2] ; 
int  i; 

}  c; 

int  arrow_choice=start,  key_choice; 
int  highlight; 

col++; 

/*  highlight  the  first  selection  */ 
if  (attrib==NORM_VID) 

{ 

highlight  =  REV_VID; 

} 

else  if  (attrib»«REV_VID) ; 

{ 

highlight  -  NORM_VID; 

) 

goto_xy (row+start,  col)  ; 

write_string (row+start,  col,  menu (0+start] ,  highlight); 

for  (; ; ) 

{ 

while ( ibioskey(l) )  ;  /*  wait  for  key  stroke  */ 
c.i  -  bioskey(O);  /*  read  the  key  */ 

/*  reset  the  selection  to  original  video  attribute  */ 
goto_xy (row+arrow_choice,  col); 
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write  string (row-*arrow_choice,  col , menu { arrow_chcice ] ,  attrib) ; 

if(c.ch(01)  /*  is  normal  key  ’/ 

{ 

/*  see  if  it  is  a  hot  key  */ 

key_choice  =  is_in(keys,  tolower (c . ch  (  0] ) ) ; 

if (kev_choice)  return  key_choice-l; 

/*  check  for  ENTER  or  space  bar  */ 
switch (c. ch [0] ) 

( 

case  ' \r' :  return  arrow_choice; 
case  '  '  :  arroK_choicerr; 

break; 

case  ESC  :  return  -1;  /*  cancel  */ 

} 

} 

else  /*  is  special  key  */ 

{ 

switch (c.ch (1] ) 

{ 

case  0P_ARR0W: 

arrow_choice — ;  /*  up  arrow  */ 
break; 

case  DOWN_ARROW: 

arrow_choice++;  /*  down  arrow  */ 
break; 
case  HOME : 

arrow_choice=0 ; 
break; 
case  END: 

arrow_choice=count-l; 

break; 

) 

} 

if (arrow_choice==count)  arrow_choice=0; 
if (arrow_choice<0)  arrow_choice=count-l ; 

/*  highlight  the  next  selection  */ 
goto_xy (row+arrow_choice,  col) ; 

write_string (row+arrow_choice, col, menu ( arrow_choice] , highlight) 

) 

) 
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